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SUMMARY 


This  appendix  contains  detailed  descriptions  of  subroutines 
used  during  the  operation  of  the  Airport  Landside  Simulation 
Model.  The  major  portion  of  this  volume  describes  the  FORTRAN 
subprogram  LINKC,  alias  FORTM  which  is  closely  linked  to  the 
GPSS-V  AUXILIARY  or  MAIN  programs  during  program  execution.  FORTM 
expedites  the  flow  of  GPSS-V  transactions  within  the  model  by 
performing  matrix  searches  and  assigning  values  to  transaction 
parameters. 

Three  major  program  sections  of  FORTM  are  described  in  this 
document.  A  non-executable  section  consists  of  FORTRAN  variable 
definition,  data  equivalent  and  namelist  statements.  An  input 
section  consisting  of  20  subsections  initializes  variables,  reads 
input  data  and  assigns  values  to  GPSS  matrix  elements.  The  main 
section  of  this  subprogram  consists  of  26  subsections  which  assign 
values  to  the  GPSS  transaction  parameters  at  each  type  of  simulated 
facility.  During  program  operation,  the  GPSS-V  MAIN  program  re¬ 
peatedly  calls  the  main  section  of  this  subprogram  as  transactions 
move  from  one  simulated  facility  to  the  next. 

This  document  also  describes  a  set  of  nine  other  subroutines 
called  by  the  GPSS-V  MAIN  or  AUXILIARY  programs  or  the  FORTM 
subprogram.  A  description  of  the  purpose,  usage,  restrictions  and 
program  logic  is  included  for  each  subroutine. 

Most  of  the  subroutines  described  are  utilized  in  the  initial¬ 
ization  stage  of  the  simulation.  Subroutines  CLINK,  CLINKl  and 
CLINK2  establish  linkages  between  the  GPSS  program  and  the  FORTM 
subprogram,  permitting  HELPA  blocks  to  operate  as  HELPC  blocks. 
Subroutine  MNLINK  allows  the  simulation  user  to  code  identical 
mnemonics  in  the  GPSS  program  and  FORTM  subprogram  and  transfer 
numerical  values  in  either  direction.  Subroutine  XCODE  provides 
an  in-core  read  and  write  capability  and  is  used  in  reformatting 
input  data  read  under  FORTRAN  format  control  for  subsequent  re¬ 
reading.  Function  subprogram  MHBASE/MXBASE/MLBASE  provides  the 
base  addresses  of  the  GPSS-V  halfword,  fullword  and  floating  point 
matrices  used  in  FORTM. 
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The  three  remaining  subroutines  are  used  during  the  simulation 
phase  of  ALSIM.  Subroutine  ASSIGN/LOGIC/PVAL/FPVAL  is  used  to 
assign  values  to  the  active  transaction  parameters,  to  set  logic 
switches,  or  to  obtain  a  parameter  value  from  the  active  transac¬ 
tion.  Subroutine  ARGERR  is  called  by  ASSIGN/LOGIC/PVAL/FPVAL  to 
print  a  message  when  an  error  in  the  argument  list  of  one  of  these 
entries  is  detected.  Subroutine  BAGS  assign  the  number  of  bags 
to  be  claimed  by  the  deplaning  passenger  transaction  and  generates 
random  numbers  for  subsequent  use  in  simulating  delivery  times. 

Several  of  these  subroutines  branch  to  locations  or  subrou¬ 
tines  utilized  by  the  IBM  Program  Product  General  Purpose  Simula¬ 
tion  System  V  -OS  (5734-XS2) .  The  documentation  containing  des¬ 
criptions  of  most  of  the  branch  addresses  is  contained  in  Chapter 
12  of  the  "General  Purpose  Simulation  System  V  User's  Manual" 
(SH20-0851) .  However,  the  subroutines  providing  logic  set  and 
reset  capabilities  in  subroutine  ASSIGN  branch  to  locations  inter¬ 
nal  to  GPSS-V  and  could  become  obsolete  if  unreleased  changes 
affecting  program  performance  were  performed  by  IBM.  The  subrou¬ 
tine  XCODE  branches  to  a  location  within  IBCOM  and  relies  on 
maintenance  of  current  operational  instructions  and  register 
conventions  for  continued  successful  operation. 

The  block  diagram  in  Figure  1  illustrates  the  program  levels 
of  ALSIM.  Subroutines  BAGS,  FORTM  and  CLINK  are  called  by  GPSS-V 
HELP,  HELPA  and  HELPC  blocks,  respectively.  BAGS  is  an  IBM 
System/370  Assembly  Language  subroutine.  The  subroutines  FORTM 
and  CLINK  are  both  written  in  FORTRAN  and  use  CALL  instructions 
or  function  references  to  access  prggrams  in  the  next  lower 
level.  With  the  exception  of  the  FORTRAN  subroutine  MXBASE/ 
MHBASE/MLBASE ,  subroutines  at  the  third  level  are  written  in  IBM 
System/370  Assembly  Language.  Branching  to  ARGERR  from  ASSIGN/ 
LOGIC/PVAL/FPVAL  is  discussed  in  the  document. 

The  blocks  FORTM,  LINKC  and  CLINK2  require  explanation.  The 
proper  name  of  the  FORTRAN  subprogram  is  LINKC  and  contains  the 
entry  point  FORTM.  All  calls  made  to  this  subprogram  from  the 
GPSS-V  programs  are  HELPA  calls  to  the  entry  point  FORTM..  LINKC 
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is  never  called  explicitly  by  the  main  or  auxiliary  programs. 

When  the  first  HELPA  call  is  made  to  FORTM,  this  subprogram  sub¬ 
sequently  calls  the  assembler  program  CLINK2.  Subprogram  LINKC 
is  then  called  by  subroutine  CLINK2.  This  procedure  is  only 
performed  once.  Control  returns  to  CLINK2  before  the  entry  point 
FORTM  is  reached.  This  operation  is  performed  to  provide  linkage 
between  FORTM  and  the  GPSS-V  programs.  Details  are  explained  in 
this  appendix. 
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LINK  C  ( FOKTM)  SUBPROGRAM  OF  THE  AIRPORT 
LANDSIDE  SIMULATION  MODEL  (ALSIM) 
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1.0  INTRODUCTION 

The  FORTRAN  portion  of  the  Airport  Landside  Simulation 
program  is  called  by  the  GPSS  program  to  perform  four  major 
functions.  These  are:  (1)  the  reading  of  data  cards  specifying 
airport  operation;  (2)  filling  GPSS  matrices  using  the  input 
data;  (3)  the  moving  of  passengers  from  node  to  node  by 
assigning  transaction  parameters;  and,  (4)  the  formatting  of 
GPSS  and  other  output  statistics  as  summaries. 

This  report  documents  the  FORTRAN  program,  named 
FORTM,  and  is  divided  in  three  sections.  The  first  is  the 
NON-EXECUTABLE  STATEMENTS  SECTION  which  contains  a  description 
of  all  the  declarations,  equivalence,  namelist  and  data  state¬ 
ments  needed  to  define  and  initialize  variables.  The  second 
is  the  INPUT  SECTION  which  contains  a  description  of  how  data 
is  read  into  the  program  and  the  initialization  process  for 
the  input  and  other  variables.  The  third  section  is  called 
the  MAIN  SECTION  and  contains  a  description  of  how  the  program 
handles  the  various  calls  from  the  GPSS  program  and  assigns  new 
values  for  parameters  at  each  type  of  landside  facility. 

Flowcharts  and  a  listing  of  the  program  are  also 
included  in  the  appendices. 
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2.0  NONEXECUTABLE  STATEMENTS  SECTION 


This  section  starts  with  the  subroutine  LINKC  statement 
which  has  the  standard  GPSS  list  of  values  to  be  passed  and 
a  set  of  INTEGER,  REAL,  and  DIMENSION  cards  which  set  up  the 
HELPC  type  link  to  the  GPSS  program.  Next  a  list  of  INTEGER, 
REAL,  DIMENSION,  and  DATA  statements  define  and  initialize 
numerous  variables.  A  data  statement  then  places  the  names 
of  all  the  facility  types  in  the  array  FACTYPE.  The  order 
in  which  the  enplaning  curb  areas  are  searched  for  a  vacant 
space  is  placed  by  a  data  statement  in  the  array  IEPSCH. 

A  final  data  statement  then  places  the  full  title  of  the 
facilities  as  written  on  input  data  cards  in  array  NAMER8. 

Equivalence  and  namelist  statements  are  described  in 
Tables  1  and  2  respectively.  A  set  of  statement  functions 
follow  which  use  bases,  addresses,  numbers  of  columns  and 
row-column  identifier  of  each  element  to  compute  the  locations 
of  the  GPSS  matrix  elements.  This  section  ends  with  a  RETURN. 
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TABLE  EQUIVALENCE  STATEMENTS 


ARRAY  OR  SCALAR  NAME 

EQUIVALENCED  TO 

DUM8 (1) 

IDUM1 (1  to  22  ) 

Input  values  to  be  zeroed  before 
new  input  line  is  read  in. 

NPASCM  (1  to  IS  ,  1) 

NFASCM  (1  to  20,  2) 

Names  of  scalars  identifying 
numbers  of  facility  types. 

INDEXF  (1  to  20)  Index  number  of 
facility  type.  Add  facility  number 
in  type  for  MH9  row. 

FACQSX  (1  to  14) 

Scalars  which  contain  the  base 
values  assigned  each  facility 
type  by  the  GPSS  compiler. 

NSORT  (Integer* 4) 

NSORTD  (1  to  2)  (Integer *2) 

Allows  the  section  of  the  program 
that  sorts  the  facilities  to  sort 
MH9  by  facility  number  and  by 
facility  type  in  a  single  pass. 

FROMTO  (1  to  2) 

FROM,  TO 

TABLE  2.  NAMELIST  STATEMENTS 


NAMELIST 

NAME 

USAGE 

DEFAULTS 

AL 

Airline  cards 

• 

BU 

Bus/Limousine  Card 

AKVBUS  =  0 

DEPBUS  »  0 

FL 

Arriving  and  departing 
flight  cards 

DOM  *  1 

AIRLIN  =  DEFLIN 

TP AX  *  0 

GE 

Facility  location  cards 

GT 

Ground  Transportation 
cards 

OV 

Walking  Time  Override 
cards 

PA 

Parameter  card 

WWGATE  =0.0  LEAVFL  =15 

GRCATF  =0.0  LEAVEC 

BOARDT  =15  min  LEAVEV  =1° 
ERRORS  =50 

S 

Storage  cards 

ST 

Initial  cards 

SCALE  =  1 

DSTFAC  =1.1 

WALKSP  =  1.0  meter/sec . 

TI 

%  Preticketed  card 

TR 

Transfer  Flight  card 

ADD  *  7200  sec. 

DELETE  =  1800  sec. 

CH 

Server  Chance 

TS 


Time  Series  Output 


3,0  INPUT  SECTION 


3.1  INITIAL  SECTION 

The  first  statement  in  this  section  is  an  ENTRY  state¬ 
ment  with  the  six  element  array  IVALUE  passed  as  a  parameter. 
The  program  then  branches  to  the  statement  number  which  has 
the  same  value  as  IVALUE (1). 

If  IVALUE (1)  is  1,  the  program  goes  to  statement  number 
1,  which  is  the  start  of  the  input  section.  Variables  used 
for  counters  are  set  to  zero  and  default  values  are  set 
to  those  listed  in  Table  2,  with  the  exception  of  those  under 
namelist  FL. 

The  first  input  card  is  then  read.  If  the  card  is  the 
JOBTAPE  card,  a  flag  is  set  to  indicate  that  the  GPSS  auxiliary 
program  is  being  used,  and  the  next  card  is  then  read.  If 
this  card  is  a  comment  card,  indicated  by  an  asterisk  in  the 
first  column,  the  next  card  is  read.  This  card,  which  should 
be  the  INITIAL  card,  is  written  to  main  memory  and  read  with 
a  namelist  format  of  ST.  The  simulation  start  and  finish 
times,  default  bag  claim  area  DEFBAG,  the  default  airline 
DEFLIN,  a  factor  DSTFAC  accounting  for  non-direct  paths  between 
points,  a  scale  factor*  and  a  walking  speed  are  contained  on 
this  card.  Subroutine  MNLINK  is  then  called  to  set  up  the 
mnemonic  link  transfer  from  either  of  two  calling  statements. 


B-l-7 


depending  upon  whether  the  auxiliary  or  the  main  program  is 
using  the  program.  Subroutine  CLINK2  is  then  called  to 
transfer  the  address  list  from  GPSS.  For  the  main  program, 
the  contents  of  the  variables  containing  the  default  values 
for  the  time  of  adding,  ADD,  or  deleting,  DELETE,  from  the 
transfer  flight  table  in  seconds  are  placed  in  their  respective 
save values,  XFADH  and  XFDXH.  A  scaling  factor,  SCLXH,  is 
used  to  allow  GPSS  transactions  to  represent  N  passenger  groups. 
Starting  locations  of  GPSS  matrices  are  computed  using  the 
functions  MHBASE  and  MLBASE.  The  contents  of  the  variables 
containing  the  times  for  the  start,  START,  in  hours,  and  end, 
FINISH,  in  seconds,  of  the  simulation  are  placed  in  their 
respective  savevalues,  OLKXE  and  ENDXF. 

The  section  of  the  program  that  is  used  to  read  in  the 

rest  of  the  cards  then  follows.  The  area  of  main  memory  that 

will  contain  the  input  values  is  zeroed  out  first.  The 
variable  TWOWAY  is  blanked  out.  A  card  is  then  read  in,  and 
the  counter,  NCARD,  for  the  number  of  cards  read  in  and  the 
counter  for  the  number  of  output  lines,  LINECT,  are  incre¬ 
mented.  If  the  counter,  LINECT,  for  the  number  of  output  lines 
exceeds  50,  then  the  counter  is  set  back  to  one  and  the  page 
title  'INPUT  DATA'  is  printed  at  the  top  of  the  next  page. 

The  line  is  then  printed  out  with  a  line  number.  If  the  card 
is  a  comment  card  then  the  program  branches  back  to  the  section 

that  reads  in  the  next  card.  If  the  card  is  not  a  comment 

card,  the  program  next  branches  to  the  section  that  handles  the 
type  of  the  input  card.  For  the  geometry  input  cards  the  card 
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identifier  is  compared  with  the  array  FACTYP.  When  the  match¬ 
ing  facility  is  found  the  program  notes  the  facility  type 
number,  I,  and  then  branches  to  the  geometry  input  section. 

If  the  card  is  not  a  recognized  input  type  the  program  prints 
out  an  error  message;  sets  an  error  flag,  NERRSW;  assigns  1000 
to  PHI;  and  branches  back  to  the  section  that  reads  the  next 
card  in. 

3.2  FLIGHT  SCHEDULE  INPUT 

The  input  line  is  written  into  main  memory  and  then 
read  again  with  a  namelist  format  of  FL.  The  counter,  NROW, 
for  the  number  of  rows  in  the  Flight  Schedule  Matrix  Savevalue, 

MHl,  is  incremented  by  one.  Next  the  value  of  the  GATE, 

PAX,  and  TIME  variables  is  checked.  If  any  of  these  variables 
have  a  value  of  zero  then  the  program  prints  an  error  message; 
sets  an  error  flag,  NERRSW;  assigns  1000  to  PHI;  and  branches 
back  to  the  section  that  reads  the  next  card  in.  Next,  the 
program  tests  whether  the  flight  is  an  arrival  or  departure 
flight.  If  the  flight  is  a  departure  then  the  program  determines 
if  both  the  default  airline  and  the  input  AIRLIN  are  zero. 

If  both  are  zero  the  program  proceeds  as  in  the  previous  error 
condition.  Otherwise  the  program  sets  MHl (NROW, 1)  to  1,  to 
indicate  a  departure  flight.  Next  MHl (NROW, 2)  is  set  equal  to 
the  input  flight  number,  FLTNO.  The  program  then  determines  if  the 
variable  AIRLINE  has  been  specified  in  the  input.  If  it  has 
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not/  the  AIRLIN  is  set  equal  to  the  default  airline,  DEFLIN. 

Then  MH1 (NROW, 3)  is  set  equal  to  AIRLIN.  MHl (NROW, 4)  is  set 
equal  to  TIME,  the  scheduled  arrival  or  departure  time.  MH1 
(NROW, 6)  is  then  set  to  time  of  flight  from  start  in  minutes. 

Next,  MHi (NROW, 7)  is  set  to  1,  2,  or  3  for  DOMESTIC,  COMMUTER 
or  INTERNATIONAL  flights  respectively.  MHl(NR0W,8)  is  set  to 
aircraft  type,  AC.  MHl (NROW, 9)  is  next  set  to  the  gate  number, 

GATE.  If  the  input  BAG  is  zero  and  if  it  is  an  arrival  flight, 
then  BAG  is  set  equal  to  the  default  bacrgaere  area  number,  DEFBAG. 

If  BAG  is  still  zero  and  it  is  an  arrival  flight,  then  the  program 
prints  an  error  message;  sets  an  error  flag,  NRRSW;  assigns 
1000  to  PHI;  and  branches  back  to  read  in  the  next  card.  If  BAG 
is  non-zero,  MH1(NR0W,12)  is  then  set  equal  to  BAG,  the  baggage  area 
number.  If  the  SCALE  is  not  equal  to  1,  then  MHl (NROW, 10)  is 
set  equal  to  PAX,  the  number  of  terminating  or  originating 
passengers  on  the  flight,  divided  by  SCALE  plus  0.51  to  round 
to  a  whole  integer;  and  MHl  (NROW, 11)  is  set  equal  to  TPAX(l) , 
the  number  of  transfer  passengers  in  the  flight,  divided  by 
SCALE  plus  0.51.  If  the  scale  is  equal  to  1  then  MHl (NROW, 10) 
and  MHl (NROW, 11)  are  set  equal  to  PAX  and  TPAX(l)  respectively. 

For  simulations  of  a  sinole  concourse,  with  transfer 
passengers  originating  on  other  concourses,  the  input  value 
TP AX ( 2 )  is  placed  in  MHl (NROW, 13) .  If  transit  passengers  are 
simulated,  TPAX  (3)  is  placed  in  MHl (NROW, 16) .  These  two 
Quantities  are  scaled  as  PAX  and  TPAX  (3).  The  program 
then  branches  back  to  the  section  that  reads  in  the  next  card. 
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3.3  TIME  SERIES  SPECIFICATIONS 

The  program  writes  the  input  line  to  main  memory  and 
reads  the  record  with  namelist  name  TS.  Values  of  GPSTO,  GPQUE 
or  GPHALF  elements  are  read  into  their  respective  array. 

These  values  are  the  absolute  numbers  of  the  GPSS  storages, 
queues,  or  halfword  savevalues  selected  for  time  series  print¬ 
outs.  Flow  and  queue  length  values  are  produced  periodically 
during  this  simulation  run  for  the  specified  GPSS  storages  and 
queues.  GPSS  halfword  savevalues  are  also  output  and  are  used 
to  represent  flow  at  specified  GPSS  program  areas. 

3.4  AIRLINE  DATA  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  flag 
is  not  set,  the  input  line  is  then  written  into  main  memory 
and  read  with  a  namelist  format  of  AL.  For  each  airline,  J, 
specified,  MH2(J,1)  is  set  equal  to  EPCURB,  the  enplaning  curb 
number;  MH(J,2)  is  set  equal  to  the  percent  of  preticketed 
passengers  using  express  check-in  times  10,  EXPCHK*10;  and  MH2 
(J,3)  is  set  equal  to  BUSTOP,  the  bus  stop  area  number  for 
enplaning  passengers.  The.  program  next  branches  back  to  the 
section  that  reads  in  the  next  card. 

3.5  GROUND  TRANSPORTATION  INPUT 

Input  variables  are  first  initialized  to  zero.  The  program 
writes  the  input  line  to  main  memory  and  reads  with  a  namelist 
format  of  GT.  All  variables  read  in  are  divided  by  100  to 
obtain  percentages.  The  variable  I  is  set  equal  to  1,  2,  or  3 
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for  DOMESTIC,  COMMUTER  or  INTERNATIONAL  flights  respectively. 

If  the  Jobtape  flag  is  set,  the  program  places  the  cumulative 
percentages  for  private  car,  rented  car,  bus  and  taxi  respec¬ 
tively  for  the  auxiliary  program  in  ML2(I,1  through  4).  If 
the  jobtape  flag  is  not  set,  the  program  places  the  cumulative 
percentages  for,  rental,  bus,  and  taxi  respectively  with  pri¬ 
vate  car  excluded  in  ML 2 (1,2  through  4).  The  program  then 
branches  back  to  read  in  the  next  card. 

3.6  X PRETICKETED  PASSENGER  INPUT 

The  program  writes  the  input  line  to  main  memory  and 
then  reads  with  a  namelist  format  of  TI.  The  program  then 
places  in  MH4(1  through  3,  1)  the  percent  of  preticketed 
passengers *10  for  DOMESTIC,  COMMUTER,  and  INTERNATIONAL  flights 
respectively.  Next,  the  program  places  in  MH4(1  through  3,  2) 
the  percent  of  preticketed  direct  *100  divided  by  %  preticket¬ 
ed  if  both  the  %  preticketed  variable  and  the  %  preticketed 
direct  variables  are  greater  than  0.  The  program  then  branches 
back  to  the  section  that  reads  in  the  next  card. 


If  the  jobtape  flag  is  set,  the  program  branches 
back  to  the  section  that  reads  in  the  next  card.  If  the  job- 
tape  flag  is  not  set,  the  program  writes  the  input  line  to 
main  memory  and  reads  it  with  a  namelist  format  of  OV.  If  the 
input  walking  time,  TIME,  is  equal  to  zero,  which  indicates 
that  the  distance,  DIST,  was  input  instead,  TIME  is  set  equal 
to  DIST/WALKSP,  the  walking  distance  divided  by  the  walking 


speed.  The  program  then  places  the  walking  time,  TIME  in  MH6 
(FROM,  TO)  and  MH6(T0,  FROM).  The  program  then  branches  back 
to  the  section  that  reads  in  the  next  card. 

3.8  PARAMETER  CARD  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  flag 
is  not  set,  the  program  writes  the  input  line  to  the  main  memory 
and  reads  in  the  variables  with  a  namelist  format  of  PA.  The 
program  then  branches  back  to  the  section  that  reads  in  the  next 
card. 

3.9  BUS  SCHEDULE  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  card 
is  not  set,  the  program  writes  the  input  to  main  memory  and 
reads  with  a  namelist  format  of  BU.  The  program  then  places 
in  savevalue  ABUXH,  ARBUS*60,  the  interval  in  seconds  between 
bus  arrivals.  Next,  the  program  places  in  savevalue  DBUXH, 
DEPBUS*60,  the  interval  in  seconds  between  bus  departures.  The 
program  then  branches  back  to  the  section  that  reads  in  the  next 
card . 

3.10  GPSS  STORAGE  CAPACITY 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  job  tape  flag 
is  not  set,  the  program  writes  the  input  to  main  memory  and 
reads  with  a  namelist  format  of  S.  For  each  storage  specified 
on  the  input  card  the  number  of  available  units  for  that  storage 
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is  set  equal  to  the  input  specified.  The  program  then  branches 
back  to  the  section  that  reads  in  the  next  card. 

3.11  TRANSFER  FLIGHT  OVERRIDE  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  card 
is  not  set,  the  program  writes  the  input  line  to  main  memory 
and  reads  with  a  namelist  format  of  TR.  If  the  input  variable 
ADD  is  greater  than  zero,  then  the  time  for  adding  a  flight  to 
the  transfer  flight  table  in  seconds,  ADD*60,  is  placed  in 
savevalue  XFAXH.  If  the  input  variable,  DELETE,  is  greater 
than  zero,  then  the  time  for  deleting  a  flight  from  the  trans¬ 
fer  flight  table  in  seconds,  DELETE*60 ,  is  placed  in  savevalue 
XFDXH .  The  program  then  branches  back  to  the  section  that 
reads  in  the  next  card. 

3.12  RUN  TITLE  CARD  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  flag 
is  not  set,  the  program  determines  if  there  are  more  than  5 
title  lines.  If  there  are,  an  error  message  will  be  written 
stating  that  only  5  title  lines  can  be  input  and  that  the 
current  line  will  not  be  used,  and  then  the  program  branches 
back  to  the  section  that  reads  in  the  next  card.  If  the  number 
of  title  lines  does  not  exceed  5,  then  the  program  increments 
the  counter,  NTLINS,  for  the  number  of  title  lines  by  one. 

Next,  the  input  line  is  written  to  main  memory  and  read  into 
array  ITITLE.  The  program  then  branches  back  to  the  section 
that  reads  in  the  next  card. 
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3.13  GEOMETRY  INPUT 

If  the  jobtape  flag  is  set,  the  program  branches  back  to 
the  section  that  reads  in  the  next  card.  If  the  jobtape  flag 
is  not  set,  the  element  of  FACOSX  corresponding  to  the  facility 
type  number,  I,  is  obtained.  This  element  is  the  GPSS  identi¬ 
fier  number  for  the  first  queue-storage  entity  of  this  type. 

Two  (2)  is  then  subtracted  from  this  number  to  aid  in  accessing 
the  Nth  facility  of  this  type.  This  is  performed  for  two  reasons, 
each  requiring  a  subtraction  by  unity. 

This  value  is  first  decremented  by  one  so  that  the  Nth 
facility  of  a  class  may  be  directly  referenced  if  the  value  of 
N  is  one  or  greater.  If  M  represents  the  number  of  the  first 
facility  of  the  Ith  class,  the  Nth  facility  is  identified  as 
the  M+N-l  landside  facility.  One  is  subtracted  from  M 
for  convenient  reference.  For  example,  if  the  gates  have  been 
assigned  storage  numbers  25  through  42  in  the  GPSS  program 
and  the  variable  GAQSL  or  M,  representing  the  first  gate 
facility,  is  also  defined  as  25,  subtracting  one  from  this  value 
allows  the  referencing  of  the  Nth  entity  of  this  type,  where, 
in  this  example  N  ranges  from  1  to  18.  Thus  24  +  N  identifies 
the  GPSS  storage  number  for  the  Nth  gate. 

The  second  value  of  one  is  subtracted  because  of  the 
nature  of  addressing  GPSS  arrays  containing  entity  information. 

One  objective  of  the  facility  data  card  is  to  provide  the  GPSS 
program  with  the  number  of  available  service  units  at  a 
particular  facility.  This  is  performed  by  placing  the  number 
of  servers  from  input  data  into 'the  standard  array  ISTO.  The 
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location  of  the  element  is  computed  in  FORTRAN.  When  the  Nth 
member  of  a  specific  entity  type  is  addressed,  the  formula  for 
locating  the  subscript  of  the  ISTO  matrix  contains  an  N-l  term 
when  referring  to  the  Nth  entity  index  number.  To  continue 
the  above  example,  the  subscript  K,  of  ISTO,  when  used  in 
reference  to  the  Nth  gate,  is  given  by  M+N-2  or  23+N. 

Following  the  location  of  the  ISTO  MATRIX,  the  program  sets 
the  variable  NOFAC  to  the  value  I,  the  number  of  the  facility  type. 
The  program  then  blanks  out  long  facility  name  titles  if  necessary. 
Next,  the  input  line  is  written  to  main  memory  and  read  with  a  name 
list  format  of  GE.  If  the  error  flag,  NERRSW,  is  set,  the  program 
branches  back  to  the  section  that  reads  in  the  next  card.  If  the 
input  value  of  the  X  or  Y  coordinate  is  not  equal  to  zero,  the  value 
are  placed  in  MH3(I,  1  to  2)  respectively,  where  I  is  the  point  num 
ber.  If  the  exit  point,  EXITPT,  or  entrance  point,  ENTRPT,  are 
specified  as  other  than  the  nearest  one  to  the  Ith  point,  they  are 
entered  in  MH3(I,3)  and  MH3  (1,4);  otherwise  the  program  will  later 
compute  these . 

The  program  then  processes  from  one  to  four  facilities  of  one 

type  which  are  allowed  on  one  input  line.  For  each  facility 

specified  on  the  input  line,  the  counter  for  the  total  number 
of  facilities  NGEO,  is  incremented  by  1,  and  the  counter  for 

the  number  of  facilities  of  a  given  type,  NFAS CM (NOFAC, 1) ,  is 
also  incremented  by  1.  For  each  facility,  MH9(NGE0,1)  is  set 

equal  to  the  facility  type  NOFAC;  MH9(NGEO,2)  is  set  equal  to 

the  facility  number  in  type,  FACNO(I);  and  MH9(NGEO,3)  is  set  equal 
to  the  point  number,  POINT,  respectively.  If  the  point  number 
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of  the  facility  being  processed  is  greater  than  the  previous 
maximum  point  number,  MAXPT,  then  the  maximum  point  number  is 
set  equal  to  the  current  point  number.  If  a  size  for  the  facil¬ 
ity  is  nonzero,  SIXE  (I),  the  number  of  available  units  in  storage 
for  that  facility  is  set  equal  to  ISTO(k) .  For  a  zero  value  of 
SIZE  (I) ,  the  program  assigns  the  GPSS  default  value  for  storage 
size . 

When  enplaning  and  deplaning  curbside  facilities  are  being 
processed,  sizes  of  each  are  divided  by  the  scale  factor  and 
ISTO(k)  is  redefined  by  the  result.  For  each  of  these  facility 
tyoes,  storages  are  designated  in  the  GPSS  program  for  double 
parking  and  queuing.  The  sizes  of  each  storage  are  specified 
by  input  variable  DP ARK  and  CURBQ ,  respectively.  When  an  enplaning 
or  deplaning  curbside  data  card  is  processed,  the  double  parking 
and  queue  storage  numbers,  K,  are  calculated  and  ISTO(k)  is  made 
equal  to  DP ARK  or  CURBQ.  A  default  value  of  one  is  used  if 
either  size  is  zero. 

Parameters  specific  to  each  facility  type  are  equivalenced 
to  elements  of  the  array  IPARAM.  These  are  plaeed  in  columns 
4  through  £  of  MH9 . 

Terminal  entrance  and  exits  are  assumed  to  be  bi-directional 
unless  the  parameter,  TWOWAY  =  NO,  is  specified  on  the  data 
card.  If  the  facility  tyne  is  not  an  entrance  or  an  exit,  the 
program  branches  back  to  the  section  that  reads  in  the  next  input 
card.  When  the  facility  type  is  an  entramce  or  exit,  then  the 
program  determines  if  the  variable  TWOWAY  is  set  equal  to  'NO'. 
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TWOWAY  can  be  set  to  'NO*  by  the  input  line,  which  means  that 
the  entrance  or  exit  specified  is  only  an  entrance  or  an  exit, 
or  TWOWAY  can  be  set  to  'NO'  by  the  program  to  indicate  that 
the  program  has  already  created  a  side-by-side  entrance/exit  for 
this  facility.  If  TWOWAY  is  'NO'  then  the  program  branches  back 
to  the  section  that  reads  in  the  next  input  line.  For  TWOWAY 

not  equal  to  'NO',  and  an  exit  card  input,  the  variable  for 
the  facility  type,  I,  is  set  equal  to  6,  the  number  for  an 

entrance.  If  TWOWAY  is  'N01;  and  an  entrance  card  is  input, 
the  variable  I  is  set  equal  to  7,  the  number  for  an  exit.  The 
program  sets  TWOWAY  equal  to  'NO'  and  branches  back  to  the 
start  of  the  Geometry  Input  Section  to  define  the  other  side 
of  the  entrance/exit  pair. 

3. 14  FLIGHT  SCHEDULE  SORTING  SECTION 

The  program  branches  to  this  section  when  the  end  of  file 
is  encountered  when  reading  in  the  input  line.  If  the  error 
flag,  NERRSW,  has  been  set  then  the  program  branches  to  state¬ 
ment  number  99999  which  is  a  RETURN.  The  flight  schedule  in 
MH1  is  sorted  by  time  after  simulation  start  in  column  6.  The 
value  -1,  is  then  placed  in  MHl (NROW+1,1)  to  indicate  the  end 
of  the  flight  schedule.  If  the  jobtape  flag  is  set,  the  program 
writes  the  message  'END  OF  INPUT  DATA'  and  branches  to  state¬ 
ment  number  99999  which  is  a  RETURN.  If  the  jobtape  flag  is 
not  set  then  the  program  goes  to  the  FACILTIY  SORT  SECTION. 
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3.15  FACILITY  SORT  SECTION 

The  flag,  NSWTC1,  is  placed  in  a  reset  condition,  then  the 
program  sorts  the  facility  table,  MH9 ,  by  facility  type  and 
number  in  type.  Facility  type  and  number  in  type  are  sorted 
in  one  pass  because  the  type  and  number  for  each  entity  are 
placed  in  one  word,  NSORT.  Following  this  sort,  NSTCWl  is 
tested.  If  it  is  set,  then  the  program  branches  to  the  SET  UP 
FACILITY  POINTER  TABLE  SECTION.  If  the  flag,  NSWTC1,  is  in  a 
reset  condition  the  program  determines  if  any  numbers  have  been 
skipped  or  if  a  duplication  of  facility  numbers  exists  in  the 
defining  of  facilities  in  MH9.  If  there  have  been  skipped 
facility  numbers  the  program  creates  dummy  facilities  in  MH9 
using  the  numbers  that  have  been  skipped.  Doubly  defined  facil¬ 
ities  terminate  the  simulation.  The  program  sets  the  flag, 
NSWTC1,  and  branches  back  to  again  sort  MH9  and  performs  the 
subsequent  test  on  NSTWC1 .  If  there  are  no  skipr-«<i  facility 
numbers  in  MH9,  the  program  then  goes  to  the  SET  UP  FACILITY 
POINTER  TABLE  SECTION. 

3.16  SETUP  FACILITY  POINTER  TABLE  SECTION 

This  section  sets  up  the  facility  pointer  table,  MH8,  which 
is  the  same  as  the  array  NFASCM.  The  program  places  in  MH8  (1 
through  20,1)  the  number  of  the  facility  in  its  type,  from 
NFASCH  1,1).  The  program  then  places  in  MH8  (1  to  20,2)  the 
index  number  of  the  facility,  NFASCM(I,2),  which  is  the  number 
of  rows  in  MH9  before  this  facility  type.  The  program  then 
goes  on  to  the  POINT-TO-POINT  WALKING  TIME  CALCULATING  SECTION. 
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?  POINT-TO-POINT  WALKING  TIME  CALCULATION  SECTION 

The  program  calculates  the  walking  time  for  each  pair  of 
points  and  stores  it  in  MH6.  If  both  the  X  and  Y  coordinates 
are  zero  for  a  point,  indicating  a  possibly  undefined  point, 
then  a  message  is  written  indicating  the  point  with  (0,0) 
coordinates.  If  the  walking  time  for  a  point-to-point  pair 
was  previously  input  in  the  WALKING  TIME/DISTANCE  OVERRIDE 
INPUT  SECTION  then  the  value  for  that  point-to-point  pair  is 
left  as  defined.  The  program  then  goes  on  to  the  DETERMINE 
CLOSEST  ENTRANCE  AND  EXIT  TO  EACH  POINT  SECTION. 

3.18  DETERMINE  CLOSEST  ENTRANCE  AND  EXIT  TO  EACH  POINT  SECTION 
The  program  determines  the  closest  entrance  and  exit  to 

each  point  and  stores  it  in  MH3  (1  to  MAXPT,  3  to  4)  respectively. 
If  the  closest  entrance  or  exit  was  previously  defined  in  the 
GEOMETRY  INPUT  SECTION  then  the  value  for  that  entrance  or  exit 
is  used.  The  program  then  goes  on  to  the  CHECK  FOR  UNDEFINED 
FACILITY  SECTION. 

3.19  CHECK  FOR  UNDEFINED  FACILITY  SECTION 

The  program  checks  the  array,  NFASCM,  to  determine  if  any 
facilities  have  not  been  defined.  For  undefined  facilities  the 
program  writes  a  message  which  includes  the  statement  that  the 
following  facilities  are  undefined,  the  list  of  the  undefined 
facilities,  and  the  statement  that  execution  continues.  The 
program  then  goes  on  to  the  END  OF  INPUT  SECTION. 

3.20  PARAMETER  ASSIGNMENT  AND  END  OF  INPUT  SECTION 

The  program  sets  the  savevalue,  BDTXE,  equal  to  the 
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boarding  time,  BOARDT,  in  seconds.  The  latest  times  of  transit 
and  transfer  passengers  for  leaving  lobby  and  concessions, 

LEAVEL  and  LEAVEC,  and  the  spread,  LEAVEV,  of  the  uniform 
random  distribution  modifying  these  times  are  converted  from 
minutes  to  seconds.  Percentages  of  well-wishers  proceeding  to 
the  gate,  vehicles  proceeding  from  enplaning  curbside  to  parking 
and  percentages  of  enplaning  ticketed  passengers  using  curbside 
check-in  are  multiplied  by  10  and  converted  to  savevalues, 

WWGXH,  CPKXH ,  and  CRBXH  respectively. 

The  percentage  of  terminating  passengers  with  greeters, 
GREET,  is  divided  by  100  and  placed  in  the  floating  point 
savevalue  GRTXL.  The  percentage  of  greeted  terminating  pas¬ 
sengers  greeted  at  curbside,  CRBGT,  is  divided  by  100  and 
placed  in  the  floating  point  savevalue  CGTXL.  The  percentage 
of  greeters  proceeding  to  the  gate,  GRGATE  and  the  percentage 
of  greeters  proceeding  to  the  parking  facility  and  deplaning 
curbside  for  passenger  pick  up,  PRKCRB  are  divided  by  100  and 
assigned  to  GRGXL  and  PGBXL  respectively.  The  message,  'END 
OF  INPUT  DATA'  is  written,  and  the  program  branches  to  state¬ 
ment  number  99999,  which  is  a  RETURN. 
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4t.Q  WIN  SECTION 

4.1  BAGGAGE  UNLOAD  SECTION 

This  section  is  called  once  for  each  arriving  flight. 

The  section  first  scans  the  matrix  savevalue  MH7,  which  was 
built  by  successive  calls  to  'BAGS'  by  the  passenger  trans¬ 
actions.  Each  passenger  bag  generates  a  random  number  from 
1  to  64.  The  matrix  MH7,  which  is  a  single  column  matrix 
of  64  rows,  contains  a  count  of  the  number  of  times  each 
random  number  was  generated  for  aun  arriving  flight.  MH7  is 
examined  row  by  row  in  ascending  order  and  is  zeroed  out  after 
examination.  For  each  row,  the  program  retains  a  cumulative 
sum  of  bags.  This  cumulative  sum  is  tested  in  steps  of  ten 
bags.  Each  time  a  value  of  ten  is  added  to  the  bag  count  the 
value  of  the  ramdom  number,  which  is  the  MH7  row  number,  is 
assigned  to  byte  parauneter  number  NOPB,  which  is  initially 
set  to  forty.  NOPB  is  then  decremented  by  one.  If  a  value  has 
been  assigned  to  byte  parameter  number  1  (NOPB  =  1) ,  then  the 
value  64  is  assigned  to  byte  parauneter  number  1  and  the 
program  branches  to  99999.  This  is  done  to  insure  that  NOPB 
is  not  decremented  to  zero  and  then  negative  numbers,  which  would 
mean  the  prograun  would  attempt  to  assign  a  value  to  a  byte 
parameter  with  a  zero  or  negative  number. 

After  all  the  rows  of  MH7  have  been  examined,  the  prograun 
determines  whether  the  value  64  was  assigned  to  the  byte 
parameter  which  was  assigned  last.  If  this  is  not  the  case, 
the  value  64  is  then  assigned  to  the  byte  parauneter  which 
was  assigned  last.  This  is  done  in  order  to  cover  the  case 


B-l-22 


when  the  cumulative  count  of  bags  is  not  a  multiple  of  ten. 

This  would  cause  the  bags  in  the  cumulative  count,  after  the 
last  multiple  of  ten,  to  not  have  their  random  number  assigned 
to  a  byte  parameter.  The  assigning  of  64  to  the  last  byte 
parameter  assures  that  all  bags  are  accounted  for  and  that  all 
passengers  with  bags  will  be  unlinked  to  the  GPSS  BAGGAGE  CLAIM 
SECTION.  The  program  then  branches  to  99999. 

4.2  BAGGAGE  CLAIM  SECTION 

This  section  is  called  once  for  each  deplaning  passenger 
who  has  a  bag.  The  section  first  determines  the  MH9  row 
number,  J,  by  adding  the  index  number  for  baggage  claim  areas, 
INDEXF ( 4 ) ,  to  the  number  of  the  baggage  claim  area  wanted, 

MHl (IV3 , 12) .  Next,  the  point  number  of  the  baggage  claim  area 

/ 

is  determined,  MH9(J,3),  and  placed  in  NPTTO .  The  program  then 
assigns  a  statement  number,  309,  to  NEXT  which  will  be  used  to 
return  from  the  WALKING  TIME  CALCULATION  SECTION.  The  program 
then  branches  to  the  WALKING  TIME  CALCULATION  SECTION. 

After  the  walking  time  is  calculated,  the  program  branches 
back  to  statement  number  309.  Halfword  parameter  2  is  assigned 
the  point  number,  NPPTO,  for  the  baggage  claim  area.  Byte 
parameter  11  is  assigned  the  process  code  for  the  baggage  claim 
area,  4.  Halfword  parameter  7  is  assigned  the  MH9  row  number, 
J.  The  program  then  branches  to  99999. 
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4.3  CUSTOMS  SECTION 

This  section  is  called  once  for  each  passenger  deplaning 
from  an  international  flight.  The  section  first  determines 
the  associated  customs  facility  number  L,  from  MH9(IV3,4).  The 
MH9  row  number  for  the  associated  customs  facility,  J,  is  then 
determined  by  adding  the  associated  customs  facility  number, 

L,  to  the  index  number  for  customs  facilities,  INDEXF  (5).  Next, 
the  point  number,  NPPTO,  of  the  associated  customs  facility 

is  then  assigned  from  MH9(J,3).  The  program  then  assigns  a 
statement  number,  313,  to  NEXT  which  will  be  used  to  return  from 
the  WALKING  TIME  CALCULATION  SECTION.  The  program  then  branches 
to  the  WALKING  TIME  CALCULATION  SECTION. 

After  the  walking  time  is  calculated,  the  program  branches 
back  to  statement  number  313.  The  storage  and  queue  number,  M, 
is  determined  by  adding  the  associated  facility  number,  L,  and 
the  base  value  for  customs  facilities,  CUSQS,  minus  one.  The 
subtraction  is  done  because  the  variable  CUSQS  contains  the 
number  of  the  first  storage  for  customs ,  thus  one  is  subtracted 
in  order  that  the  number  of  the  customs  facility  can  be  added 
to  CUSQS  in  order  to  get  the  correct  storage  number.  Halfword 
parameter  2  is  assigned  the  point  number,  NPPTO.  Halfword 
parameter  5  is  assigned  the  storage  queue  number  for  customs , 

M.  Halfword  parameter  7  is  assigned  the  MH9  row  number,  J, 
for  the  associated  customs  facility.  Byte  parameter  5  is 
assigned  the  process  code  for  customs,  5.  The  program  then 
branches  to  99999. 
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4.4  GROUND  TRANSPORTATION  MODE  SECTION 

This  section  is  called  once  for  each  passenger  on  each 
arrival  flight  by  the  main  program  and  once  for  each  passenger 
on  a  departing  flight,  by  the  auxiliary  program.  The  section 
first  determines  if  the  jobtype  flag,  JOBT,  has  been  set.  If 
set,  meaning  that  the  auxiliary  program  is  using  the 
FORTRAN  program,  the  program  sets  the  variable  K  to  1,  which 
indicates  that  the  program  will  include  the  private  car  mode 
in  the  list  of  selectable  transportation  modes.  The  variable 
L  is  set  to  0,  and  then  the  program  determines  if  the 
array  value  for  %  preticketed,  MH4(IV4,1),  is  less  than  the 
variable  IV2.  The  variable  IV2,  which  is  the  same  as  IVALUE(2), 
is  set  in  the  auxiliary  program  and  passed  to  the  FORTRAN 
program  as  the  random  number,  RN4.  If  the  %  preticketed  value 
is  less  than  the  random  number,  IV2,  the  flag  L  is  set  to  1, 
which  indicates  that  the  passenger  is  not  preticketed.  The 
program  then  goes  to  the  next  statement  which  is  at  statement 
number  701. 

If  the  jobtype  flag,  JOBT,  is  not  set,  which  means  that 
the  main  GPSS  program  is  using  the  FORTRAN  program,  the 
variable  K  is  set  to  3,  which  indicates  that  the  program 
section  will  handle  the  private  car  mode  of  transportation 
separately  from  the  other  modes  of  transportation. 


At  statement  number  701,  the  random  number  in  IV3,  which 
is  the  same  as  IVALUE(3),  is  normalized  to  a  value  between  0 
and  1,  and  placed  in  TEMPCT.  The  program  then  determines  which 
cumulative  percentage  for  the  different  types  of  transportation 
that  the  normalized  random  number  is  less  than  or  equal  to, 
but  greater  them  the  cumulative  percentage  for  the  previous 
mode  of  transportation.  The  modes  of  transportation  in  their 
order  of  being  tested  are  the  following:  rental  car, 
bus/limousine,  and  taxi  which  have  the  codes  3,  4  and  5, 
respectively.  If  the  test  is  satisfied  for  a  mode  of  transporta¬ 
tion  then  byte  parameter  6  is  assigned  the  value  of  J,  which  is 
the  code  for  the  mode  of  transportation  for  that  passenger. 

Byte  parameter  9  is  assigned  the  value  of  L,  which  is  the  flag 
for  whether  the  passenger  is  preticketed  or  not.  This  byte 
parameter  is  only  used  for  this  purpose  in  the  auxiliary  program 
and  not  in  the  main  GPSS  program. 

If  the  test  is  not  satisfied  for  any  of  the  modes  of  trans¬ 
portation,  that  is,  the  normalised  random  number  is  not  less 
than  or  equal  to  any  of  the  cumulative  percentages  for  the 
different  types  of  transportation;  the  error  count,  NERCNT, 
is  incremented  by  1.  If  the  error  count  is  equal  to  the  maximum 
allowable  number  of  errors,  ERRORS,  then  the  program  branches 
to  999.  If  the  error  count  is  not  equal  to  the  maximum  number 
of  errors,  then  the  message  'PROBLEM  IN  GROUND  TRANSPORTATION 


MODE  LOGIC'  is  written.  The  program  then  assigns  byte  parameter 
6  the  value  of  4  as  a  default  which  is  the  code  for  bus/limousine. 
BYTE  parameter  9  is  then  assigned  the  value  of  L.  The  same  holds 
true  for  this  assignment  of  byte  parameter  9  as  the  previous 
assignment  of  byte  parameter  9.  The  program  then  branches  to 
statement  number  99999. 
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This  section  is  called  each  time  a  deplaning  passenger 
goes  to  a  car  rental  agency.  This  section  first  determines 
which  rows  in  MH9  are  car  rental  facilities  by  using  the 
variable  INDEXF(II) ,  the  index  for  car  rental  agencies  in  MH9 , 
and  NORENT,  the  total  number  of  car  rental  facilities.  Hie 
variable  I  is  set  to  the  MH9  row  number  which  has  the  first 
car  rental  facility.  The  variable  J  is  set  to  the  MH9  row 
number  which  has  the  last  car  rental  facility.  Since 
each  facility  corresponds  to  a  counter,  several  of  which 
cam  belong  to  the  same  car  rental  agency  and  have  the  same 
car  rental  agency  code  number,  this  section  must  therefore 
scan  through  the  car  rental  facilities  in  MH9  to  determine 
which  counter  with  the  car  rental  agency  code  IV3 
has  the  shortest  walking  time  from  the  deplaning  passenger's 
current  position.  The  variable  LTEMP  is  used  to  keep  the  car 
rental  agency  facility  number.  If  the  value  in  MH9(N,4), 
which  is  the  car  rental  agency  code  for  car  rental  agency  facility 
number  LTEMP,  is  equal  to  the  car  rental  agency  code,  IV3,  of 
the  car  rental  agency  that  is  wanted,  then  the  program  compares 
the  walking  time  of  that  facility  to  the  previous  lowest  walking 
time  of  a  car  rental  facility  with  the  correct  car  rental 
agency  code.  If  the  car  rental  facility  that  is  being  tested 
has  a  shorter  walking  time,  then  its  point  number  is  saved  in 
MINPTO ,  its  MH9  row  number  is  saved  in  ITEMP3 ,  and  the  car 
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rental  facility  number  is  saved  in  L. 

After  the  scanning  is  finished,  the  program  determines 
if  MINPTO  is  greater  than  zero.  If  the  variable  MINPTO  is 
greater  than  zero  then  at  least  one  facility  was  found  with 
the  correct  car  rental  process  code.  The  program  then  sets 
the  variable  NPTTO  to  MINPTO,  the  point  number  of  the  car 
agency  facility  with  the  shortest  walking  distance.  The 
statement  number  326  is  then  assigned  to  the  variable  NEXT, 
and  the  program  then  branches  to  statement  number  950  to 
determine  the  walking  distance. 

After  the  walking  distance  is  determined,  the  program 
branches  back  to  the  statement  nunber  326  and  the  program  then 
determines  the  queue-storage  number,  M,  of  the  car  rental  agency 
facility  picked  by  adding  the  variable  RCRQS  to  L,  and  subtracting 
one.  One  is  subtracted  because  the  variable  RCRQS,  which 
is  passed  from  the  GPSS  program,  contains  the  number  of  the 
first  queue  and  storage  assigned  to  a  car  rental  agency  facility, 

thus  one  must  be  subtracted  from  it  in  order  to  add  the  facility 
number  of  the  car  rental  agency  wanted  to  get  the  correct  queue 
storage  number. 

The  program  then  assigns  to  halfword  parameter  2  the  value 
of  variable  MINPTO,  the  point  number  of  the  car  rental  agency 
with  the  minimum  walking  distance.  Halfword  parameter  5  is  then 
assigned  the  value  of  varied) le  M,  which  is  the  queue- storage 
number  of  the  car  rental  agency  facility  that  was  picked. 

Halfword  parameter  7  is  then  assigned  the  value  of  variable 


ITEMP3,  which  is  the  MH9  row  number  of  the  car  rental  agency 
facility  that  was  picked.  Halfword  parameter  11  is  then  assigned 
the  value  11,  which  is  the  process  code  for  the  car  rental  agency. 

If  the  variable  MINPTO  is  equal  to  zero  then  no  facilities 
were  found  with  the  correct  car  rental  process  code.  The  program 
then  scans  the  car  rental  facilities  and  determines  if  any  of 
the  car  rental  agency  facilities  have  been  defined.  This  is 
done  by  determining  if  the  car  rental  agency  code  is  greater 
than  zero.  If  no  car  rental  agencies  are  defined,  the  program 
checks  an  error  flag,  NRCRSW.  If  the  error  flag  is  equal  to 
1,  the  program  branches  to  statement  number  99999  in  order  not 
to  repeat  the  error  message.  If  the  error  flag  is  not  equal 
to  1,  the  program  sets  the  error  flag  NRCRSW  to  1,  and  writes  the 
message  'NO  CAR  RENTAL  FACILITIES  DEFINED.  THIS  MESSAGE  WILL 
NOT  REPEAT. ’,  and  branches  to  statement  number  99999. 

If,  during  the  scan,  a  car  rental  facility  is  found  to  be 
defined,  which  means  it  has  a  car  rental  agency  code  greater 
than  zero,  then  the  point  number,  NPTTO,  is  obtained  from  MH9- 
(N,3) ,  and  the  MH9  row  number,  ITEMP3 ,  is  obtained  from  N, 
then  the  message  'NO  FACILITY  DEFINED  FOR  CAR  RENTAL  AGENCY  CODE,' 
IV3, ‘FACILITY  FOR  AGENCY  CODE',  K, 'USED'  is  written,  the  error  count 
NERCNT,  is  then  incremented  by  1.  The  program  next  determines 
if  the  error  count  is  greater  than  the  maximum  allowed) le  error 
count,  ERRORS.  If  the  error  count  is  greater,  the  program 
breunches  to  statement  number  999,  the  section  which  will  stop 
the  simulation  because  of  the  cumulative  error  count.  If  the 
error  count  is  not  greater,  the  program  sets  the  variedsle  IV3 


B-l-30 


to  K,  the  code  for  the  alternate  car  rental  agency  and  the 
variable  MINPTO  is  set  to  NPTTO,  the  point  number  of  the 
alternate  car  rental  agency.  The  program  then  branches  to 
statement  number  326. 
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4.6  EXIT  SECTION 


This  section  is  called  each  time  a  deplaning  passenger 
is  to  oo  throuah  an  exit  to  the  deplaninc  curb.  The  prooram 
first  determines  if  the  next  address  for  the  passenger  is  the 
deplaning  curb,  DPLCO,  a  return  to  the  control  section,  CGTRO, 
which  will  immediately  branch  to  DPLCO,  or  the  parking  garage, 
GP.TOO .  If  fche  address  is  not  DPLCO,  CGTRO  or  GRTOO,  then  the 
program  will  set  I  to  the  value  of  byte  parameter  1  and  the 
message  'ATTEMPT  TO  EXIT  TO  BLOCK  NUMBER',  IV4 ,  'VIA  EXIT 
CHECK  FUNCTION',  I,  will  be  printed.  The  error  count, 

NERCNT ,  is  incremented  by  1,  and  then  tested  to  determine 
if  it  is  equal  to  the  maximum  allowable  number  of  errors, 

ERRORS.  If  NERCNT  is  equal  to  ERRORS,  the  program  branches  to 
999,  the  section  which  will  stoo  the  simulation  because  of  the 
cumulative  error  count.  If  NERCNT  is  not  equal  to  ERRORS, 
the  prooram  branches  to  99999. 

When  the  address  is  either  DPLCO,  CGTRO,  or  GRTOO,  the  pro¬ 
gram  determines  if  the  current  process,  IV3,  is  for  a  gate, 
baggage  claim,  customs,  rent-a-car,  or  security  which  have 
process  numbers  1,  4,  5,  11,  or  3,  respectively.  The  program 
branches  to  the  part  of  this  section  corresponding  to  the 
current  process  number.  Regardless  of  the  process  number, 
each  program  section  that  is  branched  to  has  the  same  logic. 

The  reason  for  this  is  so  that  any  future  changes  for  one  type  of 
facility  prooram  section  could  be  easily  modified  without 
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interfering  with  the  logic  for  the  other  types  of  facilities. 

The  logic  for  each  type  of  facility  is  as  follows: 

The  variable  J  is  equated  to  the  value  of  MH9 
(IV5,3) ,  which  is  the  point  number  of  the 
passenger's  current  location.  The  index,  IV5,  is 
the  MH9  row  number  of  the  last  facility. 

The  variable  NPTTO  is  then  set  to  the  value 
of  MH3  (J,3) ,  the  point  number  of  the  exit  closest  to  the 
facility.  The  statement  number  following  the  next 
instruction  is  assigned  to  the  variable  NEXT. 

The  program  branches  to  statement  number  950 
to  determine  the  walking  time  to  the  exit. 

After  the  walking  time  is  determined,  the  program 
branches  back  to  the  statement  following  the 
'GO  TO  950'  statement.  Halfword  variable  2 
is  then  assigned  the  value  of  NPTTO,  the 
point  number  of  the  nearest  exit.  The  program 
then  branches  to  99999. 


4.7  IMMIGRATION  SECTION 

This  section  is  called  for  each  deplaning  passenoer 
from  am  international  flight.  The  variable  NPTFM  is  set 
equal  to  IVALUE(2) ,  the  point  number  of  the  current  location. 
The  variable  IV3  is  set  to  IVALUE(3),  the  rrate  number.  The 
variable  l  is  then  set  to  MH9(IV3,5),  the  number  of  the 
designated  immigration  facility  for  that  gate.  Gate  index 
numbers  do  not  need  to  be  determined  because  the  gate 
facilities  are  the  first  type  of  facility  in  MH9 ,  and  their 
index  number  would  be  zero.  If  L  is  greater  than  zero  then 
the  designated  immigration  facility  for  that  gate  has  been 
defined,  and  the  program  branches  to  statement  335  to  con¬ 
tinue  normal  processing. 

At  statement  number  335  the  variable  J  is  set  to  L  plus 
I24DEXF (13 )  ,  the  index  number  for  immioration  facilities.  This 
determines  the  MH9  row  number  for  the  immigration  facility 
specified.  The  variable  NPTTO  is  set. to  MH9(J,3),  the  point 
number  of  the  specified  immigration  facility.  Statement 
number  338  is  assigned  to  the  variable  NEXT,  and  the  program 
branches  to  statement  number  950  to  determine  the  walking  time. 

After  the  walking  time  is  calculated,  the  program  branches 
bad:  to  statement  number  338.  The  variable  M  is  then  set  to 

IMMOS  plus  L  minus  1  where  IMMOS,  which  is  passed  from  the 
GPSS  program,  is  the  number  of  the  first  gueue-storage  used 
for  immigration  facilities.  M  is  then  the  number  of  the 
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queue-storage  associated  with  immigration  facility  number 
L.  The  reason  for  subtracting  1  from  L  is  the  same  for  the 
setting  of  the  variable  M  in  the  RENT-A-CAR  SECTION,  Section 
4.5.  Halfword  parameter  2  is  then  assigned  the  value  of 
NPTTO ,  the  point  number  of  the  designated  immicrration  facility. 

The  queue  storage  number,  M,  is  placed  in  halfword  parameter  5. 
Halfword  parameter  7  is  set  to  the  value  of  J,  the  MH9  row  number. 
Byte  parameter  11  is  assigned  the  value  13,  which  is  the  process 
code  for  immigration  facilities.  Halfword  parameter  8  is  also 
set  to  J,  the  MH9  row  number,  so  that  the  MH9  row  number  of 
the  immigration  facility  can  be  passed  back  to  the  FORTM 
program  from  the  Customs  Section  of  the  GPSS  program.  The 
value  of  J  in  PH7  is  lost  before  the  transaction  gets  to 
the  Customs  Section  of  the  GPSS  program.  The  program  then 
branches  to  statement  number  99999. 

If  the  value  of  L  is  not  greater  than  zero  then  one 
designated  immigration  facility  has  been  defined  for  that  gate 
and  the  program  starts  checking  for  errors.  The  program 
then  determines  if  the  variable  NOIMMI,  which  is  the  number  of 
immigration  facilities,  is  greater  than  2ero.  If  NOIMMI  is  not 
greater  than  zero,  then  no  immigration  facilities  have  been 
defined  and  the  program  writes  the  message,  'PASSENGER  ATTEMPTED 
TO  GO  TO  IMMIGRATION.  NO  FACILITIES  DEFINED'.  The  error  count, 
NERCNT ,  is  incremented  by  one  and  the  program  determines  if 
the  error  count  is  equal  to  the  maximum  allowable  number  of 
errors,  ERRORS.  If  the  error  count  is  equal  to  ERRORS  then 


the  program  branches  to  statement  number  999,  the  section  which 
will  stop  the  simulation  due  to  the  cumulative  error  count.  If 
the  error  count  is  less  than  ERRORS,  the  program  branches  to 
statement  number  99999. 

If  the  variable  NOIMMI  is  greater  than  zero  then  there 
is  at  least  one  defined  immigration  facility,  even  though  the 
designated  immigration  facility  for  the  particular  gate  is 
not  specified.  The  variable  J  is  set  to  INDEXF(13) ,  the  index 
number  for  immigration  facilities.  The  variable  K  is  set  to  J 
plus  NOIMMI,  to  obtain  the  MH9  row  number  of  the  last  immigration 
facility.  J  is  then  incremented  by  1  to  obtain  the  MH9  row  num¬ 
ber  of  the  first  immigration  facility.  The  program  then  tests  each 
immigration  facility  in  turn,  keeping  the  variable  L  as  the 
number  of  the  facility,  to  determine  the  first  immigration 
facility  that  has  a  point  number,  MH9(N,3),  which  is  greater 
than  zero,  indicating  that  the  facility  has  been  defined. 

L  is  then  set  to  the  point  number  of  the  chosen  immigration 
facility.  The  message,  'NO  IMMIGRATION  FACILITY  DEFINED  FOR 
GATE',  IV3 ,  L,  'CHOSEN',  is  then  written.  The  error  count, 

NERCNT,  is  then  incremented  by  one.  The  program  then  determines 
if  the  error  count  is  equal  to  the  maximum  allowable  error 
count,  ERRORS.  If  the  error  count  is  equal  to  ERRORS,  then 
the  program  branches  to  statement  number  999.  If  the  error 
count  is  less  than  ERRORS ,  the  program  continues  to  the  next 
statement  which  is  at  statement  number  335. 


B-l-36 


4.8  PASSENGER  DEPLANING  CURB  SECTION 

This  section  is  called  once  for  each  deplaning  passenger 
proceeding  to  the  deplaning  curb.  The  variable  IV2  and  IV3 
are  set  to  NPTFM  and  IVALUE  (3)  which  are  the  respective 
current  process  code  and  the  previous  facility  number  for 
facilities  other  than  an  exit.  The  variable  IV5  is  set  to 
IVALUE  (5) ,  the  flight  table  row  number.  The  program 
determines  if  the  current  process  code,  TV3,  is  for  a  gate 
baggacre  claim,  customs,  rent-a-car,  or  check-in,  which  have 
process  cedes  of*l>  4,  5,  11,  and  14  respectively,  and  are 
the  only  facility  types  that  would  send  a  passenger  to  curbside. 
If  the  current  process  code  is  not  one  of  these  facility  types 
then  the  program  starts  an  error  processing  procedure. 

The  variable  I  is  set  to  byte  parameter  1,  which  is  the  process 
function* number.  The  message,  ’ATTEMPT  TO  EXIT  TO  DEPLANING 
CURB  FROM  FACILITY  TYPE',  FACTYP  (IV3) ,  'CHECK  FUNCTION',  I, 
is  written.  The  error  count,  NERCNT ,  is  then  incremented  by 
one  and  tested  against  the  maximum  allowable  number  of  errors, 
ERRORS.  If  the  error  count  is  egual  to  ERRORS,  the  program 
branches  to  statement  number  999.  If  the  error  count  is  less 
than  ERRORS,  the  program  branches  to  statement  number  99999. 

If  the  current  process  code,  IV3,  is  1,  for  a  gate 
facility,  then  the  program  branches  to  statement  number  600 
where  the  variable  I  is  set  to  MHl  (rv5,  12),  which  is  the 
baggage  claim  area  number  specified  for  that  flight,  plus 

INDEXF (4) ,  the  index  number  for  baggage  claim  areas. 
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This  obtains  the  MH9  row  number  for  the  specified  bagqaqe  claim 
area.  The  variable  ITEMPl  is  then  set  to  MH9 ( 1,4),  the  deplaning 
curb  facility  number  for  that  baggage  claim  area.  The  program 
then  branches  to  statement  number  690. 

If  the  current  process  code,  IV3 ,  is  4,  which  is  for  a 
baggage  claim  area  facility,  then  the  program  branches  to  state¬ 
ment  number  605  where  the  variable  I  is  set  to  IVALUE(4) ,  which 
is  the  MH9  row  number  for  the  previous  facility.  The  variable 
ITEMPl  is  then  set  to  MH9(I,4),  which  is  the  deplaning  curb 
facility  number  for  that  baggage  claim  area.  The  program 
then  branches  to  statement  number  690. 

If  the  current  process  code,  IV3,  is  5,  for  the  customs 
facility,  the  program  then  branches  to  statement  610  where 
the  variable  I  is  set  to  IVALUE(4)  which  is  the  MH9  row 
number  for  the  previous  facility.  The  variable  ITEMPl  is 
then  set  to  MH9(I,4),  which  is  the  deplaning  curb  associated 
with  the  Customs  facility.  The  program  then  branches  to  state¬ 
ment  number  690. 

For  the  current  process  code,  IV3,  equal  to  11,  the  car  rental 
facility,  the  program  branches  to  615  where  ITEMPl  is  set 
to  MH9 (1,5) ,  the  parking  facility  number  associated  with  the 
rent-a-car  agency.  The  program  then  branches  to  statement  690. 

When  IV3  is  14,  the  transaction  currently  processed  repre¬ 
sents  a  deplaning  passenger  without  baggage  and  will  either  be 
met  by  greeters  at  curbside  or  will  use  a  bus  or  taxi.  This 
passenger  is  routed  to  the  airline  check-in  facility  and  then 
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to  the  enplaning  curb.  At  statement  620  the  program  obtains 
the  airline  number  from  MH1(IV5,3).  The  corresponding 
enplaning  curbside  number  is  obtained  from  MH2(I,1)  and 
the  facility  number  J,  for  the  enplanino  curbside  is  obtained 
by  adding  INDEXF<8)  to  this.  The  program  then  branches  to  692. 

At  statement  number  690,  the  variable  J  is  set  to  the 
variable  ITEMP1  plus  INDEXF(12) ,  the  index  number  for  the 
deplaning  curb  facility  specified.  The  point  number  of  the 
deplaning  curb  is  placed  in  NPTTO  at  statement  692.  The 
program  then  assigns  the  statement  number  691  to  the  variable 
NEXT.  The  program  branches  to  statement  number  950, 
where  the  walking  time  is  determined. 

After  the  walking  time  is  determined  the  program  returns 
to  statement  number  691.  Halfword  parameter  2  is  then 
assigned  the  value  of  NPTTO.  Halfword  parameter  7  is  assigned 
the  value  of  J,  the  MH9  row  number  of  the  deplaning  curb  area. 
Byte  parameter  11  is  assigned  the  value  12  which  is  the  process 
code  for  a  deplaning  curb.  The  program  then  branches  to  state¬ 
ment  number  99999. 


4.9  CAR  DEPLANING  CURB  SECTION 

This  section. is  called  by  greeter  transactions  for  passen¬ 
gers  to  be  met  at  curbside  and  those  who  have  met  passengers 
inside  the  terminal.  It  assigns  transactions  to  curbside, 
double  parking  ,  or  queue  areas  dependent  upon  current  con¬ 
gestion. 

The  variable  IV2  is  set  to  IVALUE (2) ,  the  airline  number. 

IV3  is  set  to  IVALUE ( 3 )  ,  the  MHl  row  number,  and  IV4  is  assigned 
I VALUE ( 4 ) ,  th^  number  of  bags  of  the  transaction  representing 
the  terminating  deplaning  passenger.  For  IV 4  not  equal  to 
zero  the  program  branches  to  700. 

When  IV4  is  0 ,  indicating  no  bags ,  the  greeter  transaction 
is  routed  to  the  enplaning  curb  for  passenger  meeting.  The 
number  of  the  enplaning  curb,  MH2(IV2,1),  assigned  to  the 
airline  is  placed  in  the  variable  M.  If  IVALUE (5)  equals  one, 
indicating  a  greeter  that  has  recirculated  and  parked,  the 
program  branches  to  716 . 

The  program  then  performs  a  curb  search  for  an  open  space. 
For  a  fixed  value  of  M,  the  matrix  IEPSCH(K,M),  provides  the 
sequence  of  enplaning  curbside  numbers  to  be  searched  for  an 

open  space.  A  DO  loop,  ending  at  statement  713,  with  a  range 
from  1  to  10  for  the  index  K,  executes  this  search.  The  variable 
L  is  set  to  IEPSCH (K ,M)  and  first  tested  to  determine  if  it 
exceeds  the  number  of  input  enplaning  curbside  facilities , 

NOENPL.  Values  of  L  greater  than  NOENPL  are  skipped  by 
branching  to  713. 
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Allowable  values  of  L  are  added  to  INDEXF(8)  to  determine 
the  facility  number  ITEMP1.  To  determine  if  this  facility  has 
been  input,  the  program  tests  MH9 (ITEMP1, 3)  for  zero.  If  unde¬ 
fined,  this  facility  number  is  skipped.  For  valid  facility 
numbers  the  program  calculates  the  storage  number  J  from  EPCBS  + 
L-l.  To  examine  the  availability  of  the  curbside  storage,  the 
subscript  ITEMP3  is  calculated  using  the  expression  ll*(J-l)+2. 
The  GPSS  reference  word  IST0(ITEMP3)  is  tested.  When  the  value 

ISTO ( ITEMP 3 )  is  zero,  indicating  no  enplaning  curbside  spaces 
available,  the  program  branches  to  statement  714  to  begin 
searching  for  a  double-parking  slot  at  the  same  curbside.  If  a 
non-zero  availability  value  is  present,  the  value  J  is  assigned 
to  PH6  and  PB10  is  set  to  1  indicating  a  curbside  parking  loca¬ 
tion.  The  program  branches  to  99999  for  a  return  to  GPSS. 

At  statement  714  the  storage  number,  J,  is  calculated 
from  EPDPS  +  L-l.  The  subscript  ITEMP3  is  again  calculated  by 
the  expression  ll*(J-l)+2.  The  availability  of  a  double 
parking  slot  is  tested.  If  found,  the  value  J  is  assigned 
to  PH6  and  PB10  is  2.  The  program  brunches  to  99999  and 
returns  to  GPSS. 

When  no  parking  is  available  at  curbside  or  in  a  double 
parking  slot,  the  program  examines  the  next  enplaning 
curbside  area  indicated  by  the  matrix  IEPSCH(K,M) .  When 
all  Dossible  areas  have  been  tried  and  no  space  is  available 
the  program  attempts  to  find  a  oueue  space  at  the  enplaning 
curb  M  of  the  IVALUE(2)  airline.  The  storage  number,  J,  of  this 
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queue  is  calculated  from  EPQCS  +  L-l,  where  L  is  equal  to  M. 

The  subscript  ITEMP3  is  evaluated  by  using  11*(J-1)+  2  as 
before.  The  storage  representing  the  queuing  at  curbside  is 

tested  for  availability.  If  a  slot  is  found,  J  is  assigned 
to  PH6  and  PB10  is  set  to  3.  The  program  branches  to  99999 
and  returns  to  GPSS.  When  there  are  no  available  queue  slots, 
the  car  must  recirculate.  The  parameter  PH6  is  set  to  zero 
and  PB10  is  set  to  4.  The  latter  value  indicates  that  the  trans¬ 
action  must  proceed  to  the  recirculation  road  section  of  the  GPSS 
program.  The  program  branches  to  99999  and  returns  to  GPSS. 

The  greeter  accompanying  a  passenger  without  bags,  who  has 
recirculated,  parked  and  then  proceeds  from  parking  to  enplahigg 
curbside,  obtains  a  facility  number  J  at  statement  716. 

Parameter  byte  11  is  assigned  the  value  8.  The  program 
branches  to  718  where  this  transaction  will  be  further  processed 
with  those  having  passengers  with  baggage. 

Greeters  accompanying  passengers  with  baggacre  are  routed 
to  the  deplaning  curb  logic  of  this  section  beginning  at 
statement  700.  The  facility  number  I  is  obtained  by  adding 
MH1 (IV3 ,12) ,  the  bag  claim  area  assigned  to  the  flight  and 
INDEXF ( 4 ) ,  the  index  value  for  bag  claim  facilities. 

If  IVALUE ( 5 )  equals  one,  indicating  a  greeter  that  has 
recirculated  and  parked,  the  program  branches  to  717.  For 
transactions  performing  initial  processing  at  the  curb,  the 
storage  number  J  of  the  deplaning  curbside  associated  with 
the  bag  claim  area  facility  number  I  is  obtained  from  MH9(I,4) 
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+  DPCBS-1.  At  this  curbside,  the  Drooram  tests  for  avail¬ 
ability  at  curbside,  or,  if  necessary,  for  double  rsarkino 
availability  using  the  same  logical  structure  as  the  enplaning 
curbside.  The  procedure  here  differs  slightly  since  only  the 
single  assigned  curbside  and  associated  double  parking  area 
are  examined  and  the  variables  DPCBS  and  DPDPS  are  used  in 
place  of  EPOS  and  EPDPS,  respectively.  When  no  space  is  found 
at  the  deplaning  curbside  or  double  parking  area,  the  program 
branches  to  statement  number  711  to  test  the  availability  of 
a  oueue  soace  without  searching  other  curbside  areas.  The  storage 
number  J  of  the  deplaning  curbside  is  obtained  from  MH9(I,4)  + 
DPQCS-1,  and  the  GPSS  subscript  number,  I TEMP 3 ,  is  obtained  from 
11* ( J-l) +2  to  test  the  availability  of  the  storage.  If  no  space 
is  available,  the  car  must  recirculate.  Each  of  the  above 
conditions  cause  branching  to  99999  and  return  to  GPSS. 

At  717,  greeters  returning  to  the  deplaning  curb  from 
parking  are  assigned  the  facility  number  J  of  the  curbside 
associated  with  bag  claim  area,  I,  from  the  expression  MH9 
(1,4)  +  INDEXF ( 12) .  A  value  of  twelve  is  assigned  to  PBll 
to  indicate  curbside  as  the  current  process  code.  The  travel 
time  from  parking  to  curbside  is  calculated.  The  point  number 
of  the  deplaning  curbside  is  assigned  to  PH2  and  the  facility 
number  J  is  assigned  to  PH7 .  The  program  returns  via  branching 
to  99999. 
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4.10  ENPLANING  CURB  SECTION 

This  section  is  called  for  each  originating  enDlaning 
passenger  transaction  using  private  car,  taxi,  or  bus  for 
around  transportation.  The  section  first  sets  the  following 
variables:  IV2  to  IVALUE(2),  the  airline  number?  IV3  to 

IVALUEO),  the  transportation  mode;  and  J  to  MH2(IV2,1), 
the  enplanina  curb  facility  number  for  airline  number  IV2. 

The  oroaram  then  branches  accordina  to  the  mode  of  transporta¬ 
tion  indicated  bv  IV3. 

When  the  value  of  IV3  is  1,  or  5,  which  is  for  private 
car  or  taxi  drop-off,  the  Drogram  searches  throuah  the  array 
IEPSCH ,  for  each  enplaning  curb  facility,  which  contains  the 
order  that  the  enplaning  facilities  are  to  be  examined 
in  order  to  find  an  open  curb  space  for  the  vehicle.  The 
search  scheme  always  first  determines  if  the  enplaning  curb 
facility  specified  by  the  airline  has  an  open  curb  space 
before  trying  the  other  enplaning  curb  facilities.  The 
variable  L  is  set  to  IEPSCH (K,J) , (K  will  vary  from  1  to  10) 
the  enplaning  curb  facility  to  be  tested  for  an  open  space. 

The  oroaram  then  determines  if  L  is  areater  than  NOENPL,  the 
number  of  enplanina  curb  facilities,  indication  that 
enolanina  curb  facility  number  L  is  undefined.  If  it  is 
undefined  the  oroaram  tests  the  next  enolanina  curb  facility 
as  soecified  in  arrav  IEPSCH  for  curb  facility  number  J.  If 
enolanina  curb  facility  L  .is  defined  then  the  variable  ITEMPl 
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is  set  to  INDEXF(8)  plus  L,  which  aives  the  ?4H9  row  number  for 
the  enplanina  curb  facility  L.  The  prooram  then  determines  if 
MH9 (ITEMP1,3)  is  equal  to  zero,  indicatinc  that  the  enolanino 
curb  facility  is  a  dummy  facility.  When  a  dummy  facility 
is  encountered,  the  program  tests  the  next  enplaning  curb 
facility.  If  the  enplaning  curb  facility  is  not  a  dummy 
facility,  the  program  sets  M  to  EPCBS  plus  L  minus  one  where 
EDCBS ,  which  is  passed  from  the  GPSS  program,  is  the  number 
of  the  first  storage  used  for  enplaning  curb  facilities. 

M  is  thus  the  number  of  the  storage  associated  with  enplaning 

curb  facility  number  L.  The  reason  that  one  is  subtracted  from 
EPCBS  is  the  same  as  for  the  setting  of  the  variable  M  in  the 
RENT-A-CAR  SECTION,  Section  4.5.  The  variable  I TEMP 3  is  then  set 
to  ll*(M-l)+2,  the  subscript  for  the  number  of  available  units 

in  storaoe  number  M.  The  prooram  next  determines  if  the 
number  of  available  units  in  storaoe  number  M  is  equal  to 
zero,  indicatinc?  no  ooen  space  at  the  ennlanino  curb.  If 
there  is  not  a  free  space  at  the  curb,  the  program  branches 
to  statement  number  804.  When  a  space  is  available,  the 
storage  number  M  is  assigned  to  PH6  and  PB10  is  set  to  1, 
indicating  an  assignment  to  curbside.  The  program  branches 
to  803. 

At  804,  the  storaoe  number  M,  for  double  parking  at  curb 
L,  is  determined  from  EPDPS  +  L-l.  The  subscript  ITEMP3 
is  calculated  from  11MM-U+2.  The  storage  M  availability 
is  tested  for  a  zero  value,  indicatino  no  ooen  snace  at  the 
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double  parking  area  of  curb  L.  If  no  space  is  available, 
the  program  branches  to  statement  800  and  continues  the 
curb  search  loop.  When  double  parking  is  available,  the 
program  assigns  to  PH6  and  2  to  PB10,  flagging  an  assignment 
to  double  parking.  The  program  branches  to  803. 

If  all  the  enplaning  curb  facilities  have  been  tested 
and  no  curbside  or  double  parking  space  is  found,  the  prooram 
attempts  to  locate  a  space  in  the  queue  adjoining  the  airline 
enplaning  curb  facilitv.  The  enplaning  curbside  facility 
number  J  is  assigned  to  L.  Facility  number  ITEMP1  is  calculated 
from  INDEXF(8)+L.  The  storage  number  M  is  calculated  from 
EPOCS+L-1.  The  subscript,  ITE.MP3 ,  as  before,  is  calculated  from 
11* (M-l ) +2 .  The  storage  M  availability  is  tested  for  a  zero 
value,  indicating  no  space  for  queuing  at  the  enplaning  curbside. 
If  no  space  is  available,  the  program  branches  to  805  to  provide 
recirculation. 

when  a  queue  space  is  available,  M  is  assigned  to  PH6 
and  3  to  PB10,  as  a  flao  for  queuing  for  a  parking  space. 

The  prooram  branches  to  803  to  calculate  the  point  number 
of  the  enplanino  curb . 

At  805,  vehicles  which  must  recirculate  are  assigned 
zero  to  PH5  and  PH6 .  A  flag  value  of  4,  indicating  recircu¬ 
lation,  is  assigned  to  PB10.  The  program  branches  to  99999.  • 
Vehiv.  (.as  assigned  to  curbside,  double  parking,  or  queuing, 

use  statement  803  where  the  point  number  of  the  curbside  is 
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determined  from  MH9 (ITEMP1, 3) .  The  point  number,  NPTTO, 
is  assigned  to  PH2  and  facility  number  I TEMP 4  is  assigned 
to  PH7 .  The  program  branches  to  99999  and  returns. 

If  the  value  of  IV3  is  5,  which  is  for  bus/limousine 
service,  the  program  sets  ITEMP2  to  MH2(IV2,3),  the  enplaning 
curb  facility  number  for  a  bus  stop  for  airline  number  IV2. 

If  I TEMP 2  is  greater  than  zero,  indicating  that  the  enplaning 
curb  facility  number  for  bus/limousine  service  is  different 
from  the  orivate  car  enplanincr  curb  facility  number  for  that 
airline,  then  the  procrram  branches  to  statement  number  809. 

If  ITEMP2  is  not  crreater  than  zero,  then  the  enplaning  curb 
facility  number  for  bus/limousine  service  is  the  same  as  the 
orivate  car  enplaning  curb  facility  number  and  ITEMP2  is  set 
to  MH2 ( IV2 , 1) ,  the  private  car  enplaning  curb  facility 
number.  At  the  next  statement,  which  is  statement  number 
809,  the  program  sets  ITEMPl  to  INDEXF(8)  +  ITEMP2 ,  the 
MH9  row  number  for  enplaning  curb  facility  number  ITEMP2.  The 
variable  NPTTO  is  then  set  to  MH9 (ITEMPl, 3) ,  the  point  number 
for  the  enplaning  curb  facility.  Halfword  parameter  2  is 
assigned  the  value  of  NPTTO,  the  point  number,  and  halfword 
parameter  7  is  assigned  the  value  of  ITEMPl,  the  MH9  row  number 
for  the  enolanino  curb  facility.  The  orocrram  then  branches  to 
statement  number  99999. 
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4.11  ENTRANCE  SECTION 

This  section  is  called  each  time  an  enplaning  passenger 
or  vistor  comes  to  an  entrance.  The  variable  NPTFM  is  assigned 
the  value  IVALUE(2),  the  point  number  of  the  current  location. 
The  variable  NPTTO  is  set  equal  to  MH3(NPTFM,4)  which  is  the 
point  number  of  the  nearest  entrance.  Statement  number  813 
is  assigned  to  the  variable  NEXT.  The  program  then  branches 
to  statement  number  950  to  determine  the  walking  time. 

After  the  walkinar  time  is  calculated,  the  program  branches, 
back  to  statement  number  813.  Halfword  parameter  2  is 
assioned  the  value  of  NPTTO,  the  point  number  of  the  entrance. 
The  procrram  then  branches  to  statement  number  99999. 
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4 . 12  TICKETING  AND  CHECK-IN  SECTION 

This  section  is  called  for  enplaning  passengers  not 
proceeding  directly  to  security,  for  deplaning  passengers 
exiting  the  terminal  building  without  bags,  and  for  greeters. 
The  program  first  sets  NPTFM  to  IVALUE(2),  the  point  number 
of  the  current  location,  and  IV3  to  IVALUE(3),  the  airline 
code  number.  The  program  tests  PB8  for  1,  indicating  a  de¬ 
planing  passenger,  and  branches  to  844  for  this  passenger  type. 
It  also  tests  for  greeters  routed  to  ticketing  for  meeting 
deplanino  passengers  without  bags  and  branches  to  844 
for  this  group.  Enplaning  passengers  are  tested  for  a 
non-preticketed  status,  IVALUE(4)  equal  to  1,  or  if  the 
random  number,  in  IVALUE(5)  from  RN4  in  the  GPSS  program, 
is  greater  than  the  percentage  of  preticketed  passencrers 
usina  the  express  check-in  facility,  MH2(IV3,2).  If  the 
test  is  true,  the  program  branches  to  the  area  for  express 
check-in  facilities  which  starts  at  statement  number  850. 
Otherwise,  the  program  continues  to  statement  number  844. 

The  full  service  facility  area  starts  with  J  set  to 
INDEX ( 14 ) ,  the  index  number  for  full  service  ticket 
facilities.  Next  K  is  set  to  J+NOTICK  to  obtain  the  last 
MH9  row  number  for  full  service  ticket  facilities.  J  is 
then  incremented  by  1  to  obtain  the  first  MH9  row  number 
for  full  service  ticket , facilities .  The  program  then 
searches  through  the  full  service  ticket  facilities  to  find 
the  one  that  has  the  same  airline  code  as  the  passenger 
with  the  facility  number  saved  in  L.  If  there  is  a 
match  of  airline  codes  between  the  passenger  and  the 
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full  service  ticket  facility,  the  program  branches  to  state¬ 
ment  number  848.  If  there  is  no  match,  the  program  enters 
an  error  processing  area  for  undefined  full  service  ticket 
facilities. 

In  the  error  processing  area,  the  program  first 
determines  if  NOTICK,  the  number  of  full  service  ticket 
facilities, is  greater  than  zero.  If  it  is  not  greater  than 
zero,  the  program  writes  the  error  message,  'NO  TICKETS  & 
CHECKIN  FACILITIES  DEFINED  FOR  ENPLANING  PASSENGERS.  RUN 
TERMINATED, '  and  the  program  then  branches  to  statement 
number  999.  If  it  is  greater  than  zero,  the  program  will 

use  the  first  full  service  ticket  facility.  The  variable 
L  is  set  to  1  to  indicate  that  facility  number.  The  variable 

I  is  set  to  INDEXF  (14)  +  1,  the  MH9  row  number  for  the  first 
full  service  ticket  facility.  The  variable  N  is  set  to 

MH9 (1,4)  the  airline  code  for  the  first  full  service  ticket 

facility.  The  program  then  writes  the  message,  'NO  TICKET 

&  CHECKIN  FACILITY  DEFINED  Fv'R  AIRLINE  CODE',  IV3 ,  'FACILITY 

OF  AIRLINE  CODE',  N,  'USED'.  The  error  count,  NERCNT ,  is 

incremented  by  one,  and  the  program  determines  if  it  is 

equal  to  ERRORS,  the  maximum  allowable  error  count.  If  it 

is  not  equal  to  ERRORS  the  program  goes  to  the  next  statement 

which  is  statement  848. 

At  statement  number  848  the  program  sets  M  to  TICQS  +  L 
-  1,  where  TICQS,  passed  from  the  GPSS  program,  is  the  number 
of  the  first  queue-storage  associated  with  the  full  service 
ticket  facility.  This  obtains  the  queue-storage  number  for 
full  service  ticked  facility  number  L.  One  is  subtracted  from  M 
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for  the  same  reason  that  one  is  subtracted  from  M  in  the 
RENT-A-CAR  SECTION,  Section  4.5.  The  variable  ITEMPL  is 
then  set  to  CHECK3.  This  variable  is  passed  from  the  GPSS 
program  and  contains  the  number  of  the  block  location  which 
the  GPSS  program  will  branch  to  for  full  service  ticket 
facilities.  N  is  then  set  to  14,  which  is  the  processing 
code  for  full  service  ticket  facilities.  The  program  then 
branches  to  statement  number  857. 

The  express  check-in  facility  area,  which  starts  at  state¬ 
ment  number  850,  first  sets  J  to  INDEXF(2),  which  is  the  index 
number  for  express  check-in  facilities.  Next,  K  is  set  to  J  + 
NOCHEC,  where  NOCHEC  is  the  number  of  express  check-in  facilities, 
to  obtain  the  MH9  row  number  of  the  last  express  check-in  facility. 
J  is  then  incremented  by  one  to  obtain  the  MH9  row  number  of 

the  first  express  checkin  facility.  The  orogram  searches 
through  the  airline  codes  for  the  express  checkin  ^acilitv  in 
MH9 (1,4)  to  determine  which  facility  has  the  same  airline  code 
as  the  passenger.  The  number  of  the  express  checkin 
facility  with  the  same  airline  code  as  the  passenger  is 
saved  in  variable  L.  If  there  is  a  match,  the  program  branches 
to  statement  number  853.  If  there  is  no  match,  the  program 
enters  an  error  processing  area  and  will  attempt  to  use  any 
full  service  facility. 

In  the  error  processing  area  the  program  first  sets  J  to 
INDEXF (14) ,  the  index  number  for  full  service  ticket  facilities. 

K  is  then  set  to  J  +  NOTICK  to  obtain  the  MH9  row  number  of 
the  last  full  service  ticket  facility.  J  is  then  incremented 
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by  1  to  obtain  the  MH9  row  number  for  the  first  full  service 
ticket  facility.  The  program  then  searches  through  the  airline 
codes  for  the  full  service  ticket  facilities,  contained  in 
MH9 (1,4) ,  to  determine  which  facility  has  an  airline  code  that 
matches  with  the  passenger's  airline  code  in  IV3.  The  number 
of  the  matching  facility  is  saved  in  the  variable  L.  If  there 
is  a  match,  the  passenger  will  be  sent  to  that  full  service 
facility  and  the  program  will  branch  to  statement  number  859. 

If  there  is  no  match,  the  program  first  determines  if  NOTICK, 
which  is  the  number  of  full  service  ticket  facilities,  is 
greater  than  zero,  indicating  that  at  least  one  full  service 
facility  has  been  defined.  If  NOTICK  is  not  greater  than  zero 
then  the  message,  'NO  TICKET'*  &  CHECKIN  DEFINED  FOR  ENPLANING 
PASSENGERS.  RUN  TERMINATED*,  is  printed  and  the  program  branches 
to  statement  number  999.  If  NOTICK  is  greater  than  zero  the 
program  sets  I  to  INDEXF(14)  +  1  to  obtain  the  MH9  row  number 
of  the  first  full  service  facility.  Next,  N  is  set  to  MH9 
(1,4)  to  obtain  the  airline  code  for  the  first  full  service 
ticket  facility.  The  message,  ’NO  EXPRESS  CHECKIN  FACILITY 
DEFINED  FOR  AIRLINE  CODE’,  IV3 ,  ’FULL  SERVICE  AIRLINE  CODE’, 

N , ’ USED’ ,  is  then  written.  The  error  count,  NERCNT,  is  incre¬ 
mented  by  1  and  L  is  set  to  1  for  the  number  of  the  first  full 
service  ticket  facility.  If  the  error  count  is  equal  to  ERRORS, 
the  maximum  allowable  number  of  errors ,  the  program  branches  to 
999.  If  the  error  count  is  not  equal  to  ERRORS,  the  program 
goes  on  to  the  next  statement  which  is  statement  number  859. 
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At  statement  number  859,  M  is  set  to  TICQS  +  L  -1,  where 
TICQS  is  number  of  the  first  queue-storage  associated  with 
full  service  ticket  facilities.  This  obtains  the  queue-storage 
number  for  facility  number  L.  One  is  subtracted  from  TICQS  for 
the  same  reason  that  one  was  subtracted  from  M  in  the  RENT-A-CAR 
SECTION,  Section  4.5.  Next,  ITEMPl  is  set  to  CHEK3 .  This 
variable  is  passed  from  the  GPSS  program  and  contains  the 
number  of  block  location  which  the  GPSS  program  will  branch 
to  for  full  service  ticket  facilities.  N  is  then  set  to  14, 
which  is  the  process  code  for  full  service  ticket  facilities. 

The  program  then  branches  to  statement  number  857. 

The  following  statement,  which  is  at  statement  number 
853,  continues  the  processing  for  express  check-in  facilties 
by  setting  M  to  CHKQS  -1  +  L,  where  CHKQS  is  the  number 
of  the  first  queue-storage  associated  with  express  check-in 
facilities.  This  obtains  the  queue-storage  number  for 
express  check-in  facility  Nuntoer  L.  One  is  subtracted  from 
CHKQS  for  the  same  reason  as  above.  N  is  next  set  to  2  which 
is  the  process  code  for  express  check-in.  ITEMPl  is  then  set 
to  CHEK2 .  This  variable  is  passed  from  the  GPSS  program 
and  contains  the  number  of  the  block  locations  which  the  GPSS 
program  will  branch  to  for  express  checkin  facilities. 

The  program  then  branches  to  statement  number  857  which  is 
the  following  statement. 

At  statement  857  the  program  sets  NPTTO  to  MH9(I,3) 
to  obtain  the  point  number  of  the  full  service  or  express 
checkin  facility.  The  statement  number  856  is  assigned  to 
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NEXT  and  the  program  branches  to  950  to  determine  the  walking 
time . 

After  the  walking  time  is  determined,  the  program  branches 
back  to  statement  number  856.  The  program  then  assigns  to 
halfword  parameter  number  2  the  value  of  NPTTO,  the  point 
number  of  the  full  service  or  express  checkin  facility.  Half¬ 
word  parameter  4  is  then  assigned  the  value  of  ITEMP1,  the  block 
location  that  the  GPSS  program  will  branch  to  for  either  full 
service  or  express  check-in  facilities.  Halfword  parameter  5  is 
assigned  the  value  of  M,  the  queue-storage  number  for  the  full 
service  or  express  checkin  facility.  Halfword  parameter  7 
is  assigned  the  value  of  I,  the  MH9  row  number  for  the  full 
service  or  express  checkin  facility.  Byte  parameter  11  is 
assigned  the  value  of  N,  the  process  code  for  full  service 
or  express  checkin  facilities.  The  program  then  branches  to 
statement  number  99999. 
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4.13  SECURITY  SECTION 


This  section  is  called  for  each  enplaning  passenger  and 

greeters  proceeding  to  the  gate.  The  variable  NPTFM  is  set 

to  IVALUE(2),  the  point  number  of  the  current  location;  and 

IV3  is  set  to  IVALUE(3) ,  the  number  of  the  gate  the  passenger 

is  proceeding  to.  I  is  then  set  to  MH9  (IV3,4),  the  security 

facility  number  for  gate  number  IV3.  I  is  then  tested  to 
determine  if  it  is  greater  than  zero.  If  I  greater  than 

zero  then  the  security  facility  has  been  defined  for  that 

gate,  and  the  program  branches  to  statement  number  860. 

If  the  value  of  I  is  not  greater  than  zero  then  the  program 

writes  the  message,  'NO  SECURITY  FACILITY  DEFINED  FOR  GATE*, 

IV3,  'SECURITY  FACILITY  NUMBER  1  IS  ASSIGNED'.  MH9(IV3,4) 

and  I  are  set  to  1  in  order  to  assign  security  facility  1  to 

gate  number  IV3  for  current  and  future  reference. 

At  the  following  statement,  which  is  statement  number 
860,  J  is  set  to  INDEXF  (3)  +1  the  MH9  row  number  of  security 
facility  number  I.  M  is  set  to  SECpS+I-1,  where  SECOS  is 
the  number  of  the  first  GPSS  queue-storage  associated  with 
security  facilties,  to  obtain  the  queue-storage  number  for 
security  facility  number  I.  One  is  subtracted  from  SECQS 
for  the  same  reason  that  one  is  subtracted  from  M  in  the 
RENT-A-CAR  SECTION,  Section  4.5.  NPTTO  is  next  set  to  MH9 
(J,3),  the  point  number  of  the  security  facility.  Statement 
number  861  is  assigned  to  NEXT,  and  the  program  then  branches 
to  statement  number  950  to  determine  the  walking  time. 


After  the  walking  time  has  been  calculated  the  program 
branches  back  to  statement  number  950.  The  program  then  assigns 


to  halfword  parameter  2  the  value  of  NPTTO,  the  point  number 
of  the  security  facility.  Halfword  parameter  5  is  next 
assigned  the  value  of  M,  the  queue-storage  number  for  the 
security  facility.  Halfword  parameter  7  is  assigned  the  value 
of  J,  the  MH9  row  number  of  the  security  facility.  Halfword 
parameter  11  is  then  assigned  the  value  of  3,  the  process  code 
for  security.  The  program  then  branches  to  statement  number 
99999. 
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4.14  GATE  SECTION 


This  section  is  called  for  each  enplaning  passenger  and 
greeters  proceeding  to  the  gate.  The  variable  NPTFM  is  set  to 
I VALUE ( 2 )  ,  the  point  number  of  the  current  location;  and  IV3 
is  set  to  IVALUE(3) ,  the  number  of  the  gate  the  passenger  is 
proceeding  to.  NPTTO  is  then  set  to  MH9(IV3,3),  the  point  number 
of  the  gate.  No  index  number  is  needed  to  access  the  gate 
information  in  MH9 ,  since  the  gates  are  the  first  facility 
type  in  MH9  and  the  index  number  would  be  zero.  The  program 
then  determines  if  NPTTO  is  greater  than  zero  which  would 
indicate  that  the  gate  has  been  defined  and  is  not  a  dummy 
facility.  If  NPTTO  is  greater  than  zero,  the  program  branches 
to  statement  number  873. 

If  NPTTO  is  not  greater  than  zero,  indicating  that  the 
gate  is  a  dummy  facility,  the  program  scans  through  the 
gate  facilities  in  MH9  to  find  a  gate  that  is  not  a  dummy 
facility,  indicated  by  MH9  (1,3)  being  greater  than  zero,  where 
I  is  the  number  of  the  gate  being  tested.  When  a  non-dummy  gate 
facility  is  found  the  program  sets  J  to  halfword  parameter 
1,  which  is  the  flight  table  row  number  for  the  flight  that 
the  passenger  is  going  to  take.  The  gate  number  for  the  flight 
MH1 (J,9)  is  then  set  to  I  so  that  all  subsequent  passengers 
for  that  flight  will  go  to  gate  number  I.  The  message,  'GATE', 
IV3,  ’NOT  DEFINED.  CHECK  DATA  FOR  FLIGHT',  MH1(J,2),  'GATE', 

I,  'USED',  is  written  and  IV3  is  set  to  I,  the  new  gate  number. 
NPTTO  is  then  set  to  MH9(IV3,3) ,  the  point  number  of  the  new 
gate . 
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The  following  statement,  which  is  at  statement  number 
873,  assigns  statement  number  874  to  NEXT.  The  program  then 
branches  to  statement  number  950  to  determine  the  walking  time. 
After  the  walking  time  is  determined  the  program  branches  back 
to  statement  number  874.  Next,  M  is  set  to  GAQSL+IV3-1  where 
GAQSL,  which  is  passed  from  the  GPSS  program,  is  the  number  of 
the  first  queue-storage  associated  with  the  gate  facilities. 

This  obtains  the  number,  M,  of  the  queue-storage  for  gate  facility 
number  IV3.  One  is  subtracted  from  GAQSL  for  the  same  reason  that 
one  is  subtracted  from  M  in  the  RENT-A-CAR  SECTION,  Section  4.5. 

Next,  halfword  parameter  2  is  assigned  the  value  of 
NPTTO ,  the  point  number  of  the  gate.  Halfword  parameter  5 
is  assigned  the  value  of  M,  the  queue-storage  number  for 
the  gate.  Halfword  parameter  7  is  assigned  the  value  of  IV3, 
the  MH9  row  number  for  the  gate,  which  in  the  case  of  gate 
facilities  is  the  same  as  the  number  of  the  gate.  Byte  parameter  11 
is  assigned  the  value  of  1,  which  is  the  process  code  for 
gates.  The  program  then  branches  to  statement  number  99999. 
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4.15  PARKING  SECTION 


This  section  differs  from  other  FORTN  sections  because 
it  is  called  from  several  locations  in  the  GPSS  program. 
Furthermore,  transactions  with  four  different  requirements 
call  the  parking  section. 

These  requirements,  and  the  types  of  transactions  utilizing 
them  are  the  following: 

(1)  Parameter  assignments  to  specify  the  queue  storage 
numbers  for  subsequent  simulation  of  parking  lot 
exits 

used  by  deplaning  passengers,  either  self-driven 

or  with  accompanying  greeters. 

used  by  well-wishers  departing  the  airport. 

(2)  Parameter  assignments  to  specify  the  point  number 
of  the  parking  facility  and  the  parking  lot  number. 

used  by  enplaning  passengers  self  driven  or 
with  well  wishers. 

used  by  enplaning  passengers  returning  rental  cars 
-  used  by  greeters  meeting  passengers  inside  the 
terminal. 

(3)  Parameter  assignments  to  specify  point  number  and 
queue  storage  number  of  parking  lot  exit 

used  by  greeters  proceeding  from  parking  lot 
to  curb. 

(4)  Parameter  assignment  to  specify  parking  lot  number 

used  by  well  wishers  proceeding  from  enplaning 
curb  to  parking  lot. 
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The  program  first  sets  NPTFM  to  IVALUE(2),  the  point 
number  of  the  current  location;  IV3  to  IVALUE(3),  the  trans¬ 
portation  mode;  IV4  to  IVALUE(4),  the  deplaning/enplaning 
flag  (0.1);  IV5  to  IVALUE(5),  the  car  rental  agency  number; 
and,  IV6  to  IVALUE{6),  a  flag  to  signify  that  only  the  lot 
number  will  be  obtained.  The  program  then  determines  if  the 
transaction  represents  a  passenger  or  well-wisher  by  testing 
IV4  for  a  value  of  1.  If  the  transaction  represents  either 
category  the  program  branches  to  statement  number  720. 

If  the  passenger  is  deplaning  or  a  greeter  is  represented  the 
program  determines  if  the  passenger  or  greeter  is  driving  a 
private  vehicle  or  renting  a  car,  and  branches  to  statement 
number  728  or  722,  respectively.  If  the  transportation  mode 
is  neither  of  these  the  program  branches  to  statement  number 
721  where  an  error  processing  area  starts. 

At  St.  tement  numbet  720  the  program  determines  if  the 
enplaning  passenger  or  well-wisher  is  driving  a  private  vehicle 
or  renting  a  car  and  branches  to  statement  number  728  or  722, 
respectively.  If  the  transportation  mode  is  neither  of  these  the 
program  goes  to  the  following  statement,  statement  721,  where 
an  error  processing  area  starts.  The  variable  I  is  set  to 
halfword  parameter  4,  the  address  parameter.  The  program  then 
writes  the  message,  'INVALID  CALL  TO  FORTM  PARKING.  ' PH2= 1 , 
NPTFM,  ' PH4= 1  I,  1 PB7= ' ,  IV4 ,  'PB6='  IV3 .  The  error  count. 
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NERCNT ,  is  incremented  by  one  and  is  compared  with  the  maxi¬ 
mum  allowable  error  count,  ERRORS.  If  NERCNT  is  equal  to 
ERRORS,  the  program  branches  to  statement  number  999.  If 
NERCNT  is  not  equal  to  ERRORS,  the  program  branches  to  state¬ 
ment  number  99999. 

The  following  statement,  which  is  at  statement  number 
722,  sets  I  to  INDEXF(ll) ,  the  index  number  for  car  rental 
facilities.  J  is  then  set  to  I+NORENT,  which  is  the  last 
MH9  row  number  for  car  rental  facilities.  I  is  incremented  by 
1  to  make  it  the  first  MH9  row  number  for  car  rental  facilities. 

The  program  then  scans  the  car  rental  agencies  and  compares  the 
agency  code  of  each  car  rental  facility  in  MH9(N,4)  with  the 
agency  code  of  the  passenger.  When  a  match  is  found,  L  is 
set  to  MH9 (N, 5 ) ,  where  N  is  the  MH9  row  number  for  car 
rental  facilities,  to  obtain  the  parking  lot  facility  number 
for  that  car  rental  facility.  If  L  is  greater  than  one, 
indicating  that  the  parking  lot  is  a  special  lot  for  the 
rental  agency,  the  program  branches  to  statement  number  723. 

If  L  is  equal  to  one,  indicating  that  the  general  parking 
lot  is  used  by  the  car  rental  facility,  the  program  continues 
scanning  the  car  rental  facilities. 

If  no  match  of  agency  codes  between  car  rental  facilities 
and  passenger  is  made  with  the  parking  lot  facility  number 
being  greater  than  one,  the  program  .continues  to  the  following 
statement,  which  is  statement  number  728.  At  statement  number 
728  a  lot  number,  LOTNO,  is  obtained  from  PB14  if  one  was  previously 


assigned.  For  those  without  this  assignment,  LOTNO  is  given 
a  value  of  1  which  assigns  the  transaction  to  the  general  lot. 

The  facility  number  N  is  then  set  to  INDEXF(IO)  +  i,OTNO,  the 
MH9  row  number  for  the  specified  parking  lot.  M  is  set  to 
PARQS  +  LOTNO- 1 ,  where  PARQS ,  passed  from  the  GPSS  program, 
is  the  number  of  the  first  queue-storage  associated  with 
parking  lot  facilities.  The  program  tests  IV6  for  a  value  of  1, 
to  determine  if  only  the  lot  number  is  required.  For  other 
values,  the  program  branches  to  724.  The  lot  number  is 
assigned  to  PB14,  and  the  program  branches  to  99999  for  a 
return  to  GPSS. 

At  the  following  statement,  which  is  at  statement  number 
723,  the  program  sets  N  to  INDEXF(IO)  +  L  to  obtain  the  MH9 
row  number  for  parking  lot  facility  number  L.  M  is  then  set 
to  PARQS+L-1  to  obtain  the  queue-storage  number  for  parking 
lot  facility  number  L  One  is  subtracted  from  PARQS  for  the 
same  reason  that  one  is  subtracted  from  M  in  the  RENT-A-CAR 
SECTION,  Section  4.5. 

At  statement  number  724,  NPTTO  is  set  to  MH9(N,3),  the  point 
number  of  the  parking  lot  facility.  If  NPTFM  is  zero,  for  an 
enplaning  passenger  or  greeter,  the  program  branches  to 
statement  number  727  to  skip  the  walking  time  determination 
since  the  parking  lot  was  the  first  landside  facility  used, 
and  no  walking  time  determination  is  needed.  Otherwise 
the  program  assigns  statement  727  to  NEXT  and  branches  to 
statement  number  950  to  determine  the  walking  time. 
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After  the  walking  time  is  calculated,  the  program  branches 
back  to  statement  number  727.  Halfword  parameter  2  is  set  to  NPTTO, 
the  point  number  of  the  parking  lot  facility.  Halfword 
parameter  5  is  set  to  M,  the  queue-storage  number  of  the  parking 
lot  facility.  Halfword  parameter  7  is  set  to  N,  the  MH9  row 
number  of  the  parking  lot  facility.  Byte  parameter  11  is  set 
to  10,  the  process  code  for  parking  lots,  and  byte  parameter 
14  is  set  to  LOTN.  The  program  then  branches  to  statement 
number  99999. 
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4.16  TRANSFER  PASSENGER  SECTION 

This  section  is  called  once  for  every  transfer  and 
transit  passenger.  Transfer  passengers  are  those  arriving 
and  departing  at  different  gates.  Transit  passengers  arrive 
and  depart  at  the  same  gate.  The  program  first  sets  M  to 
IVALUE ( 5 ) ,  the  arriving  gate  number.  ITEMP3  is  next  set  to 
MH9 (M,4) ,  the  security  facility  number  (and  concourse  number) 
for  that  gate.  Next,  ITEMP3  is  tested  to  determine  if  it  is 
greater  than  zero,  which  indicates  that  a  security  facility  has 
been  assigned  to  the  gate.  If  ITEMPl  is  greater  than  zero,  the 
program  branches  to  statement  number  827.  If  ITEMPl  is  equal 
to  zero,  the  program  writes  the  message,  'NO  SECURITY  FACILITY 
FOR  GATE',  M,  'SECURITY  FACILITY  NUMBER  1  ASSIGNED'.  MH9 
(M, 4 )  and  I TEMP 3  are  both  set  to  1  to  assign  security  facility 
1  to  gate  IVALUE (5). 

Statement  827  places  IVALUE (2)  in  IV2.  The  Drogram 
executes  a  computed  GO  TO  and  branches  to  program  statements 
821  or  822  if  t.ie  passenger  is  a  transfer  passenger  or  transit 
passenger,  respectively.  The  following  statement,  which  is 
statement  number  821,  determines  if  NOFXFR,  the  number  of 
available  transfer  flights,  is  greater  than  zero.  If  NOFXFR 
is  greater  than  zero,  indicating  there  are  transfer  flights 
available,  the  program  branches  to  statement  number  824.  If 
NOFXFR  is  equal  to  zero  the  program  sets  K  to  PB5 ,  the 
number  in  the  party.  MHll (ITFMP3)  is  then  incremented  by  K 
to  keep  count  of  passengers  that  leave  concourse  number 
ITEMPl.  The  save-value  XFRXH  is  incremented  by  1  to  keep 
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count  of  the  number  of  transfer  transactions  that  are  not 
accepted  on  a  transfer  flight.  The  block  location  TRX99  is 
assigned  to  PH4,  and  the  block  location  CTRLl  is  assigned  to 
PH8.  when  the  FORTRAN  program  returns  to  the  GPSS  program, 
these  two  assignments  will  cause  the  transfer  transaction  to 
terminate.  The  program  then  branches  to  statement  number 
99999. 

The  following  statement,  statement  number  824,  assigns 
block  location  C3TRL0  to  PH8 ,  which  will  cause  the  GPSS 
program  to  process  the  transaction  normally  once  the  FORTM 
program  returns.  The  variable  N  is  set  to  the  remainder  of 
IVALUE ( 3 ) ,  which  is  a  random  number  passed  from  the  GPSS 
program,  divided  by  NOFXFR,  the  number  of  available  transfer 
flights,  plus  1.  This  will  cause  N  to  be  assigned  a  random 
integer  between  1  and  NOFXFR,  which  will  be  used  as  the  row 
number  of  the  transfer  flight  matrix  MH5  for  this  transfer 
passenger.  The  variable  I  is  then  set  to  MH5 (N)  to  obtain 
the  MH1  row  number  of  the  transfer  flight.  The  variable  K 
is  next  set  to  the  address  for  MH1(I,11).  The  quantity 
stored  at  this  address  is  the  number  of  seats  still  available 
for  transfer  passengers.  MH1(I,11)  is  then  decremented  by 
1  to  indicate  that  another  seat  has  been  occupied  by  a 
transfer  passenger. 

The  following  statement  determines  if  MH1(I,11)  is 
greater  than  zero  or  not.  If  it  is  greater  than  zero, 
indicating  that  there  are  transfer  passenger  seats  avail¬ 
able  on  the  flight,  the  program  branches  to  statement  number 


820.  If  MHl (1,11)  is  equal  to  zero,  indicating  that  all 
transfer  seats  are  taken,  the  program  deletes  the  flight 
number  in  row  N  from  the  transfer  flight  table  MH5  by 
moving  all  flights  in  MH5 ,  after  flight  number  N,  one 
row  closer  to  the  beginning  of  the  matrix.  The  number 
of  transfer  flights,  NOFXFR,  is  decremented  by  1. 

At  the  following  statement,  which  is  at  statement  number 
820,  the  program  assigns  the  MHl  flight  table  row  number, 

I,  to  PH7 ,  branches  to  99999  and  returns  to  GPSS.  The 
transit  passenger's  arriving  flight  table  row  number  is  con¬ 
tained  in  IVALUE ( 3 ) .  At  statement  822  this  is  assigned  to  K. 
The  gate  number,  IGAT,  of  this  flight  is  determined 
from  MHl (K, 9) .  The  flight  table  matrix  MHl  is  examined 
starting  from  row  K+l  to  determine  the  next  departure  at 
the  same  gate.  MHl (1,1)  is  tested  in  a  DO  LOOP  from 
I=K+1  to  1=999  for  negative,  zero,  and  positive  values. 

If  negative,  indicating  the  end  of  the  flight  table  matrix, 
the  program  branches  to  statement  818.  If  zero,  indicating 
an  arriving  flight,  the  program  branches  to  826  to  search 
the  next  row.  If  positive,  indicating  a  departing  flight, 
the  program  branches  to  819.  At  819  the  gate  number  in 
MHl (1,9)  is  compared  to  IGAT.  If  these  are  identical 
the  program  branches  to  817.  If  not  identical  the  program 
continues  to  statement  826  to  continue  the  search. 

At  statement  818,  which  follows  statement  826,  the 
number  of  transit  passengers  in  the  party,  contained  in 
byte  parameter  5,  is  assigned  to  K.  Matrix  MH11  is 
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incremented  by  K.  Although  this  passenger  was  intended  to 
act  as  a  transit  passenger,  no  matching  gate  number  was 
found  and  this  passenger  is  included  in  the  count  XFRXH  of 
transfer  passengers  unable  to  obtain  a  connecting  flight. 
The  value  XFRXH  is  incremented  by  K.  The  passenger  trans¬ 
action  is  assigned  TRX99  to  PH4  and  CTRLl  to  PH8  for 
termination  upon  return  to  the  GPSS  program. 

Transit  passengers  successfully  obtaining  a  matching 

gate  number  are  routed  to  statement  817.  Flicht  table 
i 3w  number,  I,  is  assigned  to  PHI  and  PH8  is  assigned  CTRLl 

for  transfer  to  the  next  point  in  the  transit  passenger 
routing  function. 

The  program  branches  to  99999  for  a  return  to  GPSS. 


4.17  TRANSFER  FLIGHTS  SECTION 

This  section  is  called  at  the  start  of  the  simulation  to 
initialize  the  flight  table  and  later  called  to  add  to  or 
delete  a  flight  from  the  flight  table.  If  transfer  seats  remain 
unfilled  when  the  flight  is  to  be  deleted,  this  section  is 
called  to  assign  point  numbers  to  transactions  created  to  com¬ 
plete  the  count  of  transfer  passengers.  Only  the  transaction 
representing  the  flight  performs  this  call. 

The  variable  IV2  is  first  set  to  IVALUE(2),  the  MH1  row 
number.  IV3  is  next  set  to  IVALUE(3),  the  flag  indicating 
flight  table  initialization,  addition,  deletion,  or  point 
number  assignment.  The  program  next  tests  if  IV3  is  equal 
to  1,  the  flag  setting  for  deleting  a  flight  from  the 
flight  transfer  table.  If  IV3  is  equal  to  1,  the  program 
branches  to  statement  number  832.  If  IV3  is  not  equal  to  1, 
the  program  tests  if  IV3  is  equal  to  2,  the  flag  setting 
for  adding  a  flight  to  the  flight  transfer  table.  If 
IV3  is  equal  to  2,  the  program  branches  to  statement  number 
830.  If  IV3  is  equal  to  3,  the  program  branches  to  836 
for  point  number  assignment.  If  IV3  is  none  of  the  above, 
the  flight  transfer  table  is  to  be  initialized. 

The  program  then  tests  each  flight,  I,  in  MH1 ,  which  is  the 
flight  table  matrix,  in  several  different  ways.  The  first 
test  determines  whether  MH1(I,1)  is  negative,  zero,  or 
positive.  This  flag  tells  whether  the  end  of  table  has  been 
reached,  if  negative;  whether  the  flight  is  an  arrival  flight, 
if  zero;  or  if  flight  is  a  departure  flight,  if  positive. 
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If  the  MHl  (I,  1)  flag  is  negative,  the  program  branches 
to  statement  number  835;  assigns  I  to  PHI,  the  number  of  the 
flight  in  MHl  last  tested;  and  then  branches  to  statement 
number  99999.  If  the  MHl (1,1)  flag  is  zero,  then  the 
flight  is  an  arrival  flight,  and  the  program  goes  to 
the  next  flight  listed  in  MHl.  If  the  MHl  (1,1)  flag  is 
positive  then  the  flight  is  a  departure  flight,  and  the 
program  proceeds  to  statement  number  833  which  is  the 
following  statement.  The  program  then  sets  ITEMPl  to 
MHl (1,6) *60,  the  time  of  flight  in  seconds  from  the  simu¬ 
lation  start.  The  program  then  tests  if  ITEMPl  is  greater 
than  save-value  XFAXH,  which  is  the  maximum  time  interval 
between  current  time  and  flight  time  allowed  for  addition 
to  the  transfer  flight  table.  This  has  a  default  value 
of  120  minutes.  If  ITEMPl  is  greater  than  XFAXH,  then  the 
departing  flight  will  leave  after  the  maximum  time  interval 
and  all  departure  flights  after  this  departure  will  also 
leave  after  the  time  interval  since  the  flights  in  MHl  are 
listed  in  chronological  order.  If  ITEMPl  is  greater  than 
XFAXH,  the  program  branches  to  statement  number  835;  assigns 
I  to  PHI,  the  number  of  the  last  flight  tested  in  the 
flight  table;  and  then  branches  to  statement  number  99999. 

If  ITEMPl  is  not  greater  than  XFAXH,  the  program  goes  to  the 
following  statement. 

The  following  statement  tests  whether  ITEMPl  is  less 
them  savevalue  XFDXH,  which  is  the  minimum  time  interval 
between  current  time  and  flight  time  allowed  for  addition 
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to  the  transit  flight  table.  This  has  a  default  value  of  30 
minutes.  If  ITEMPl  is  less  than  XFDXH ,  then  the  departure 
flight  is  scheduled  to  leave  at  too  early  a  time  to  be 
added  to  the  transfer  flight  table,  so  the  program  goes  to 
test  the  next  flight  in  the  MH1  flight  table.  If  ITEMPl 
is  not  less  than  XFDXH  the  program  goes  to  the  following 
statement  which  tests  whether  MHl(I,ll)  is  equal  to  zero 
or  not.  MH1 ( I , 11)  contains  the  number  of  transfer  seats  to 
be  filled  on  the  departure  flight.  If  MH1(I,11)  is  zero, 
then  there  are  no  transfer  seats  to  be  filled,  and  the 
program  goes  to  test  the  next  flight  in  the  MHl  flight 
table.  If  MHl (I, 11)  is  greater  than  zero,  the  program  goes 
to  the  following  statement. 

The  following  statement  increments  NOFXFR,  which  is 
the  count  of  transfer  flights  in  the  transfer  flight  table, 
by  1.  Next,  the  departure  flight,  I,  is  added  to  the 
transfer  flight  table  by  setting  MH5 (NOFXFR)  to  I.  If  all 
flights  have  been  tested  in  the  MHl  flight  table,  and  flight 
time  relative  to  simulation  start  does  not  exceed  XFAXH , 
the  program  sets  PHI  to  I,  the  last  row  number  in  MHl  at 
statement  855;  and  then  branches  to  the  statement  number 
99999. 

At  statement  number  832,  the  start  of  the  DELETE  FROM 
FLIGHT  TABLE  SECTION,  the  program  first  tests  if  MH5(1), 
the  MHl  row  number  of  the  first  flight  in  the  transfer 
flight  table,  is  not  equal  to  IV2 ,  the  MHl  row  number  of 
the  flight  that  is  to  be  deleted.  If  the  flight  to  be 
deleted  is  not  the  first  flight  listed  in  the  transfer 
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flight  table,  then  the  program  branches  to  statement  number 
99999.  If  they  are  the  same  flight,  then  the  count  of 
flights  in  the  transfer  flight  table,  NOFXFR,  is  decremented 
by  one.  The  program  then  shifts  each  remaining  flight  in  the 
transfer  flight  table  one  position  toward  the  begining  of  MH5 , 
thus  deleting  the  first  flight  from  the  table.  The  program 
then  branches  to  statement  number  .99999 . 

At.  statement  number  830  which  is  the  start  of  the 
add  to  transfer  flight  table  section,  the  program  first  tests 
if  NOFXFR,  the  count  of  flights  in  the  table,  is  equal  to  100. 
If  it  is,  the  program  branches  to  statement  number  831,  writes 
the  message;  'ADDITION  OF  DEPARTING  FLIGHT,  MHl  ROW  NO',  IV2 
•TO  TRANSFER  FLIGHT  TABLE  MH5  WOULD  HAVE  CREATED  OVERFLOW 
CONDITION.  FLIGHT  NOT  ADDED',  and  then  branches  to  statement 
number  99999.  If  NOFXFR  is  less  than  100,  then  NOFXFR  is 
incremented  by  1  and  MH5 (NOFXFR)  is  set  to  IV2  which  adds 
the  flight  to  the  transfer  flight  table.  The  program  then 
branches  to  statement  number  99999. 

when  transfer  flights  are  deleted  from  the  transfer 
flight  table,  GPSS  fills  unassigned  transfer  seats.  The 
logic  beginning  with  statement  836  obtains  the  point  number 
of  the  airline  ticket  counter  to  initiate  the  processing  of 
these  transactions.  At  statement  836,  the  airline  number  of 
the  flight  is  obtained  from  MHl(IV2,3)  and  assigned  to  IARLIN. 
The  index  number,  IROW,  for  ticket  facilities  is  obtained  from 
MH8 (14,2) .  The  number  of  these  facilities,  INUMTC*  is  assigned 
from  MH8(14,1).  ITEMP1  is  the  row  number  of  the  first  facility 
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in  MH9  of  this  type  and  is  set  equal  to  IR0WN0+1.  I TEMP 2  is  the 
row  number  of  the  last  ticketing  facility  in  MH9  and  is  IROWNO+ 
INUMTC.  Matrix  MH9(I,4)  is  searched  between  the  I  subscript 
levels  ITEMP1  and  ITEMP2  for  the  airline  number  identical  to 
IARLIN .  When  this  is  found  the  program  branches  to  statement  838. 

If  no  airline  is  found,  the  program  sets  I  to  ITEMP1, 

MH9 (1,4)  to  I TEMP 2 ,  and  then  writes  error  messages  and  continues 
to  statement  838. 

At  statement  838  the  point  number  IPTNO  is  obtained 
from  MH9 (1,3) .  This  is  assigned  to  PH2 .  The  program  branches 
to  99999  and  returns  to  GPSS. 
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4.18  MISCELLANEOUS  GPSS  ERROR  CONDITIONS  SECTION 

This  section  is  called  from  GPSS  to  record  a  variety 
of  error  conditions.  The  calling  transactions  are  found  on 
user  chain  ERROR  at  the  end  of  the  simulation  run.  The 
variable  IV2  is  set  to  IVALUE(2),  the  type  of  error.  The 
program  then  branches  to  the  section  of  the  program  for  the 
type  of  error  specified  in  IV2. 

At  statement  number  901,  the  message,  'VEHICLE  XAC', 

I VALUE ( 3 ) ,  'UNABLE  TO  MATCH  WITH  PAX  AT  DEPLANING  CURB.  CHECK 
USER  CHAIN  " ERROR '•  FOR  THIS  XAC',  is  written  and  then  the 
program  branches  to  statement  99999. 

At  statement  number  902,  the  message,  'PAX  XAC  WITH 
GROUND  TRANSPORT  MODE',  I VALUE (3),  'ENTERED  BLOCK  DPLCO. 

CHECK  USER  CHAIN  "ERROR"  FOR  XAC  NO',  IV5 ,  is  printed,  and 
then  the  program  branches  to  statement  number  99999. 

At  statement  number  903  through  910  the  statement  is 
a  CONTINUE.  This  is  done  so  that  more  error  messages  can 
be  easily  added  at  a  later  time.  The  program  then  branches 
to  statement  number  99999. 
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4.19  FORMATTED  REPORT  SECTION 

This  section  is  called  once  when  the  time  of  end  of 
simulation  event  has  occurred.  The  variable  Cl  is  set  to 
IVALUE ( 2 )  ,  which  is  the  relative  clock  time.  The  rest  of  this 
section  is  repeated  for  each  type  of  facility  I,  where  I 
assumes  the  values  1  through  20. 

The  flag,  NSWTCH,  for  undefined  numbers  of  agents,  is 
reset  to  zero.  K  is  set  to  MH8(I,1),  the  count  of  facilities 
of  type  I.  If  K  is  zero,  which  indicates  that  there  are  no  faci¬ 
lities  of  this  type,  the  program  branches  to  statement  number 
450,  and  the  next  facility  type  will  be  processed.  J  is  next 
set  to  MH8  (1,2) ,  the  index  number  of  facility  type  I.  K  is  set  to 
K+j  v'hich  is  the  row  number  of  the  last  facility  of  type  I  in  MH9. 

J  is  incremented  by  one  to  set  it  to  the  row  number  of  the  first 
facility  of  type  I  in  MH9 .  If  the  facility  type  is  gate, 
custom,  security,  check-in,  ticketing,  car  rental,  or  immigra¬ 
tion  the  program  branches  to  statement  number  400  and  prints 
the  title  of  the  simulation,  if  there  is  a  simulation  title. 

If  the  facility  type  is  not  one  of  the  above  facility  types, 
the  simulation  branches  to  statement  number  450  where  I  is 
incremented  by  1  and  then  the  next  facility  type  is  processed. 

The  program  then  branches  according  to  facility  type  to  a 
write  statement  which  will  print  out  the  title  for  that 
facility  report.  After  each  write  statement,  the  program 
branches  to  statement  number  430  where  the  column  headings  for 
the  facility  report  are  printed  out.  The  count  of  the  number 


B-l-74 


of  lines  printed  on  the  page,  NCOUNT,  is  set  to  11+NTLINS 
where  NTLINS  is  the  number  of  lines  in  the  simulation  title, 
and  the  number  11  takes  into  account  the  number  of  lines  for 
the  individual  facility  report  title  and  the  column  headings. 

The  variable  ITEMP1,  is  next  set  to  FACQSX(I) ,  which  is 
the  base  value  of  the  queue  and  storages  for  that  facility 
type.  The  basic  equation  for  calculating  the  subscript  for 
queue  or  storage  attributes  is  J=K*(N-1)+L  where  J  is  the 
subscript,  N  is  the  number  of  the  facility  in  that  type,  and 
K  and  L  are  indexing  constants.  IQUER  is  set  to  4*(ITEMP-1) 
which  is  part  of  the  subscript  for  the  queue  attribute  cumu¬ 
lative  time  integral.  The  indexing  constant  L  will  be  added 
at  a  later  time.  IQUEI  is  set  to  IQUER+IQUER  which  is  part 
of  the  subscript  for  some  of  the  queue  attributes.  The  indexing 
constant  L,  which  will  indicate  which  attribute  is  wanted,  will 
be  added  at  a  later  time.  ISTOX  is  then  set  to  11* (ITEMP1) -1 
which  is  part  of  the  subscript  for  one  of  the  storage  attributes. 
I TEMPI  is  then  set  to  ITEMP1-FACQSX (I) +1  which  sets  the  value 
of  I TEMPI  to  1. 

The  segment  of  the  program  through  statement  number  455 
is  then  repeated  for  each  facility  in  type  I,  where  N  is 
incrementally  set  to  MH9 ,  row  number  J  through  K.  The  program 
first  tests  if  the  facility  is  a  dummy  facility  by  determining 
if  MH9 (N ,3)  is  zero.  If  it  is  zero,  the  program  branches 
to  statement  number  448.  If  MH9(N,3)  is  not  zero,  MCOUNT 
is  then  incremented  by  2 ,  to  add  to  the  count  of  lines  printed 
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the  number  of  lines  needed  to  print  the  current  line.  If 
NCOUNT  is  less  than  or  equal  to  55,  then  a  full  page  has  not 
been  printed  yet,  and  the  program  branches  to  statement  number 
445.  If  NCOUNT  is  greater  than  55,  then  a  full  page  has  been 
printed,  and  the  program  prints  the  message,  "ALL  TIMES  IN 
MINUTES:  SECONDS."  The  title  of  the  simulation,  if  there  is 
a  title,  is  printed  at  the  top  of  the  next  page.  The  program 
then  branches  to  a  write  statement  which  prints  out  the  title 
of  the  facility  report  at  the  top  of  the  next  page.  After 
each  write  statement  the  program  branches  to  statement  number 
443  where  NCOUNT  is  set  to  11+NTLINS  to  account  for  the  number 
of  lines  used  in  the  title  and  column  headings.  The  column 
headings  for  the  report  are  then  printed.  At  the  next  state¬ 
ment,  statement  number  445,  ITEMP2  is  set  to  the  current 
contents  of  storage  plus  number  of  available  units  in 
storage  which  gives  the  total  number  of  agents  in  the 
storage  facility.  If  I TEMP 2  is  greater  than  1000,  (1000  being 
an  arbitrarily  large  number)  then  the  number  of  agents  in  the 
storage  is  undefined,  and  the  flag  NSWTCH  is  set  to  1.  I TEMP 3 
is  next  set  to  the  storage  entry  count  times  the  scale  to  obtain 
the  total  number  of  patrons  using  the  facility.  If  I TEMP 3  is 
greater  than  zero  indicating  that  the  storage  has  been  used, 
then  the  program  branches  to  statement  number  444.  If  ITEMP3 
is  not  greater  than  zero,  then  the  variables  ITEMP4 , XTEMP5 , 
ITMP6M,  ITMP6S  are  set  to  zero  and  the  program  branches  to 
statement  number  446.  This  is  done  in  order  to  avoid  division 
by  zero  and  to  avoid  needless  calculations.  At  statement 
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number  444,  ITEMP4  is  set  to  the  maximum  storage  contents  to 
obtain  the  maximum  number  of  agents  busy.  ITEMP5  is  set  to 
the  cumulative  time  integral  divided  by  Cl,  the  relative  clock 
time,  to  obtain  the  average  number  of  agents  busy.  ITEMP6 
is  set  to  the  cumulative  time  integral  divided  by  the  entry 
count  times  the  scale  to  obtain  the  average  time  per  patron 
in  seconds.  ITEMP6M  is  set  to  ITEMP6/60  to  obtain  the  seconds 
part  of  the  average  time  Per  patron.  At  the  following  state¬ 
ment,  which  is  at  statement  number  446,ITEMP7  is  set  equal  to 
the  total  entry  count  times  the  scale. 

If  ITEMP7  is  greater  than  zero,  indicating  that  there 
were  entries  to  the  queue,  then  the  program  branches  to  state¬ 
ment  number  447.  If  ITEMP7  is  equal  to  zero,  indicating  that 
there  have  been  no  entires  to  the  queue,  then  the  variables 
ITEMP8-,  XTEMP9,  ITM10M,  ITM10S  are  set  to  zero,  and  the  program 
branches  to  statement  number  449.  This  is  done  to  avoid 
dividing  by  zero  and  to  avoid  needless  calculations. 

At  the  following  statement,  which  is  at  statement  number 
447,  ITEMP8  is  set  to  the  maximum  contents  of  the  queue  times 
the  scale;  XTEMP9  is  set  to  the  cumulative  time  integral  for 
the  queue  times  the  scale  divided  by  the  relative  clock  time 
to  obtain  the  average  queue  size.  ITEMP10  is  set  to  the  cumula¬ 
tive  time  integral  for  the  queue  times  the  scale  divided  by 
the  total  entry  count  to  obtain  the  average  time  in  the  queue 
in  seconds.  ITM10M  is  set  to  ITEMP10  divided  by  60  to  obtain 
the  average  time  in  the  queue  in  integer  minutes.  ITM10S 
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is  set  to  the  remainder  of  ITEMP10  divided  by  60  to  obtain 
the  seconds  part  of  the  average  time  in  the  queue.  The  data 
for  the  facility  report  is  next  written  out. 

At  the  following  statement,  which  is  at  statement  number 
448,  ITEMP1  is  incremented  by  1  to  obtain  the  number  of  the 
next  facility  type  I.  IQUER  is  incremented  by  4,  IQUEI  is 
incremented  by  8,  and  ISTOX  is  incremented  by  11  to  obtain 
the  subscripts  for  the  next  facility  in  type  I.  The  following 
statement,  which  is  at  statement  number  455,  is  a  continue 
statement  and  is  the  last  statement  of  the  DO  LOOP  which  prints 
the  facility  report  for  all  facilities  of  type  I. 

The  program  then  writes  the  message,  'ALL  TIMES  IN 
MINUTES:  SECONDS’.  If  the  undefined  agent  switch,  NSWTCH, 
is  set  to  1,  then  the  following  message  is  written:  ’^INDICATES 
UNDEFINED (UNLIMITED)  NO.  OF  AGENTS'.  The  following  statement, 
which  is  at  statement  number  450,  is  a  continue  statement 
and  is  the  last  statement  of  the  DO  LOOP  which  processes  all 
facility  types  1  through  20.  The  program  then  branches  to 
statement  number  99999. 
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4.20  CLOCK  UPDATE  SECTION 

This  section  is  called  once  every  minute  of  simulation 
time.  ITEMPl  is  set  to  the  halfword  save-value  CLKXH  plus 
IVALUE  (2 ) /60  to  obtain  the  new  clock  time.  IVALUE(2)  is  the 
time  increment  in  seconds  which  has  been  set  to  60  in  the  GPSS 
program,  and  CLKXH  is  the  clock  time  which  is  to  be  incremented. 
Since  the  clock  time  is  kept  in  the  form  of  hours  and  minutes, 
the  program  next  determines  if  an  hour  has  passed,  by  dividing 
ITEMPl  by  100  and  checking  the  remainder  to  see  if  it  is  greater 
than  or  equal  to  60.  If  the  remainder  is  greater  than  or  equal 
to  60,  then  an  hour  has  passed  and  an  hour  is  added  in  the  clock 
column  to  the  clock  time  by  adding  40  to  ITEMPl.  The  halfword 
savevalue  CLKXH  is  then  set  to  the  new  clock  time,  ITEMPl.  The 
program  then  branches  to  statement  number  99999. 

4.21  SNAPSHOTS 

This  section  produces  two  output  time  series.  The  first 
is  the  occupancy  or  congestion  counts  at  simulated  terminal 
points  for  each  five-minute  time  interval.  The  output  data, 
written  on  File  12,  consists  of  the  simulated  time  and  number 
of  persons  currently  located  at  this  point.  The  second  time 
series  are  flow  and  queue  length  data  for  selected  simulated 
landside  processors  produced  as  a  function  of  time.  This  data 
is  written  on  Files  13  and  14. 

The  program  stores  the  current  clock  time  in  ITEMPl,  then 
tests  LINSNP ,  the  line  counter  for  occupancy  data  for  a  value 
less  than  50.  When  this  condition  occurs  the  program  branches 
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to  statement  653.  When  LINSNP  is  50  or  greater  the  program 
proceeds  to  the  next  instruction.  LINSNP  is  made  equal  to 
NTLINS,  the  number  runtitle  records  input  for  use  as  the  simu¬ 
lation  title.  The  title  and  the  heading  "5  MINUTE  SNAPSHOTS 
OF  CONGESTION  AT  POINTS"  are  written  on  File  12,  with  column 
headings  for  time  and  point  numbers.  Because  the  initial 
value  of  LINSNP  is  50,  this  information  is  produced  on  the 
initial  call  to  this  section. 

At  653,  the  halfword  savevalues  1  to  24  of  the  GPSS  MAIN 
program,  representing  simulated  congestion  at  the  correspond¬ 
ing  point  numbers,  are  stored  in  the  ITEMPA  array  by  a  DO  loop 
ending  at  statement  654.  The  ITEMP1  and  ITEMPA  values  are 
written  to  File  number  12,  then  LINSNP  is  incremented  by  one. 

The  remainder  of  the  snapshot  section  produces  the  flow, 
queue  length,  and  halfword  savevalues  for  the  corresponding 
GPSS  entities  with  numbers  specified  by  the  GPSTO,  GPQUE 
and  GPHALF  arrays  discussed  in  the  input  section.  A  title  is 
written  for  this  information  on  File  13  using  logic  similar 
to  that  for  congestion.  The  counter  LINSNX  is  used  as  a  line 
counter  in  place  of  LINSNP  and  is  also  initialized  to  50.  At 
statement  960  LINSNX  is  incremented  by  one. 

A  DO  loop  ending  at  660  extracts  the  required  entry 
counts,  current  contents,  queue  contents  and  savevalues  to 
produce  the  time  series.  The  GPSS  storage  number,  ISTRNO, 
identifying  the  simulated  lands ide  processor  for  which  flow 
data  is  to  be  extracted,  is  obtained  from  the  input  GPSTO (IR) . 
When  a  storage  number  is  not  present  in  GPSTO (IR) ,  the  value  is 
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zero  for  the  element  and  the  program  branches  to  statement 
965.  When  a  storage  number  is  provided,  the  subscripts  JENTCT 
and  JRCON  are  calculated  by  the  following  algorithm: 

j  =  K* (N-l) +L, 

where:  J  =  Subscript  value  for  GPSS  addressing 

JENTCT,  JRCON 
K , L  =  Indexing  contants 

N  =  Index  number  of  specific  entity  type 
ISTRNO 

This  formula  is  obtained  from  the  IBM  General  Purpose 
Simulation  System  V  User's  manual  (SH20-0851-1)  pp.  164-167. 

The  constants  are  provided  by  Table  12-1  of  the  referenced 
document.  The  cumulative  entry  count,  XENTCT,  and  current 
contents,  XRCON,  are  then  obtained  from  ISTO  (JENTCT)  and 
ISTO  (JRCON),  respectively. 

The  variable  flow,  the  number  of  passengers  or  vehicles 
processed  by  the  storage  in  a  specified  time  interval  is  the 
difference  between  the  cumulative  entry  count,  XENTCT,  at  the 
current  clock  time  and  the  cumulative  entry  count,  ENTRCT(IR), 
for  the  previous  interval  minus  the  change  in  current  contents, 
XRCON -CRCON (IR) ,  over  the  same  time  duration.  The  entire 
quantity  is  multiplied  by  the  simulation  scale  factor  SCALE. 

After  flow  is  calulated,  the  current  cumulative  entry 
count  and  contents  are  stored  in  ENTRCT(IR)  and  CRCON(IR), 
respectively,  for  use  in  the  succeeding  time  interval  calcula¬ 
tion.  The  initial  values  in  these  arrays  are  zeroes. 
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The  output  array  element,  TSSOUT(l) ,  is  assigned  the 
value  I TEMPI  and  TSS0UT(IR+1)  is  made  equal  to  FLOW. 

This  queue  length  present  at  a  landside  processor  is 
obtained  next  from  the  GPSS  MAIN  program.  The  number  of  the 
designated  queue,  ITQUE ,  is  obtained  from  the  input  GPQUE(IR) 
at  statement  965  and  tested  for  zero  in  the  next  statement. 

When  the  element  is  zero,  the  program  branches  to  967.  The 
subscript  JQUE  is  calculated  from  the  same  algorithm  as  JENTCT 
and  JR CON .  Current  contents  of  the  queue  are  obtained  from 
IQUE(JQUE).  These  are  multiplied  by  the  scale  factor  and  stored 
in  TSQUE (IR+1) .  The  current  time  is  stored  in  TSQUE(l). 

At  statement  976,  the  GPSS  halfword  savevalue  designated  by 
GPHALF(IR)  is  stored  in  ITHLF.  Again,  as  in  the  flow  and  queue 
length  subsections,  the  value  of  ITHLF  is  tested  for  zero  and 
the  program  branches  to  660  for  this  condition.  Because  the 
only  information  that  GPSS  stores  for  the  Halfword  savevalue 
is  the  current  value  of  the  savevalue,  no  calculation  is 
required  for  the  subscript.  The  value  is  directly  obtainable 
as  ISA VEH ( ITHLF)  and  assigned  to  ISHLF. 

Halfword  savevalues  are  generally  used  to  record  cumula¬ 
tive  processor  outflows  in  the  GPSS  program  when  storage  entry 
counts  and  current  contents  are  inapplicable.  The  value  FLOW 
is  calculated  by  subtracting,  ISHLF,  the  current  magnitude  of 
the  savevalue  from  JTHLF(IR),  the  value  from  the  last  time 
interval.  This  difference  is  multiplied  by  SCALE.  The  current 
value  of  FLOW  is  stored  in  TSHALF(IR+1)  and  the  clock  time. 
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ITEMP1,  is  stored  in  TSHALF(l).  The  current  value  of  ISHLF  is 
stored  in  JTHLF(IR)  for  use  in  the  next  time  interval.  The 
initial  value  of  JTHLF(IR)  is  zero. 

The  IR  loop  ends  at  660  with  a  CONTINUE  statement. 

A  DO  loop  ending  at  969  calculates  outflow  from  security 
stations  and  stores  them  in  TSFLOW (IL+1 ) .  The  security  out¬ 
flow  is  recorded  in  the  GPSS  MAIN  program  in  halfword  matrix 
12.  The  cumulative  flow  value,  JSECFL,  is  obtained  from  HMH12 
and  the  flow  during  the  current  time  interval  is  calculated 
with  the  same  procedure  used  for  savevalues.  At  969  the  cur¬ 
rent  security  flow  is  stored  in  ISECFL(IL).  Initial  values  of 
ISECFL  are  also  zero. 

The  outflow  of  simulated  full  service  airline  counters 
are  recorded  in  MH13  and  stored  in  TTFLOW  by  a  DO  loop  ending 
in  923.  Processing  is  identical  to  security  flow  calculation 
and  storage. 

The  values  stored  in  TSSOUT,  TSQUE,  TSHALF,  TSFLOW  and 
TTFLOW  are  written  on  File  13  for  print  out.  These  are  also 
written  as  a  single  record  on  File  14  under  a  10015  format  for 
later  processing  and  averaging  with  other  ALSIM  runs.  The 
section  ends  with  a  GO  to  99999  instruction  to  return  to  the 
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4.22  CHANGE  CARD  PROCESSING 

This  section  provides  a  method  for  changing  numbers 
of  servers  at  landside  facilities  as  a  function  of  time. 

Data  cards  specifying  time,  facility  name  and  numbers  of 
servers  must  be  input.  This  section  is  called  from  GPSS 
whenever  a  change  is  required. 

The  argument  IVALUE(2)  is  tested  for  a  value  of  2, 
the  flag  signifying  a  decrease  in  the  number  of  servers  in  a 
storage.  A  value  of  2  causes  branching  to  590  to  accomplish 
this.  The  other  value,  1,  is  used  to  read  and  process  a 
change  card. 

The  variable  ICHNGl  is  tested  for  the  initial  value 
of  zero.  If  true,  the  program  branches  to  statement  580. 
to  read  the  initial  change  card  and  return  to  GPSS.  Other¬ 
wise  the  variable  SERVERS (1),  which  contains  the  characters 
representing  any  facility,  is  tested  for  zero.  If  a  zero 
is  found,  indicating  no  data  present  on  the  input  card,  the 
program  branches  to  statement  560  for  reading  the  next 
change  card.  For  non-zero  values  of  SERVRS(l),  a  search 
through  the  facility  type  array,  FACTYP,  is  performed  at 
statement  551.  Variables  I  and  M  are  initialized  to  1 
and  0,  respectively.  SERVRS(I)  is  compared  with  FACTYP (L) 
in  a  DO  LOOP,  with  L  ranging  from  1  to  20.  When  the 
characters  match,  the  program  branches  to  553.  If  no 
match  is  found,  the  program  branches  to  557  to  write  an 
error  message  and  terminate  the  program. 
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At  statement  553  the  GPSS  storage  number  FACQSX(L) 
is  assigned  to  J.  The  value  of  J  is  tested  for  zero.  When 
J  equals  zero,  the  facility  is  not  defined  in  the  simulation 
and  the  program  branches  to  557.  For  non-zero  values  of  J, 
a  value  of  one  is  subtracted  from  J  and  I  is  incremented  by  1. 
The  next  item  on  the  data  card,  SERVRS{1),  represents  the 
facility  number  within  type  and  is  assigned  to  IFACNO.  If 
IFACNO  is  zero,  indicating  the  end  of  the  data  stream,  the 
program  branches  to  558.  At  558  the  array  SERVRS(I)  is 
zeroed.  The  number  of  changes,  M,is  placed  in  the  savevalue 
NSCXH;  and  the  program  continues  to  statement  560. 

When  IFACNO  is  less  than  zero,  a  new  facility  name  is 
present  in  SERVRS(I)  and  the  program  branches  back  to  state¬ 
ment  551  to  process  the  next  facility  type.  If  IFACNO  is 
greater  than  the  number  of  facilities  within  type,  NFASCM 
(L, 1) ,  an  error  is  recognized  and  the  program  branches  to  557. 

When  IFACNO  is  an  admissible  value,  the  subscript,  Kl, 
used  to  obtain  current  contents  of  the  storage  from  ISTO(Kl) 
is  calculated  using  11* ( J+IFACNO-1)  +1.  The  subscript  K2 
is  Kl+1  and  provides  the  remaining  storage  capacity  from 
ISTO (K2) .  Variables  ICONT  and  IRCAP  are  set  to  current 
contents  and  remaining  capacity,  respectively. 

The  next  value  in  SERVRS(I)  is  obtained  by  incrementing 
I  by  1.  This  provides  the  new  number  of  servers  at  the  facility 
and  is  set  to  NEWCAP.  If  the  value  of  NEWCAP  is  less  than 
zero  the  program  branches  to  557.  When  NEWCAP  is  greater 
than  or  equal  to  the  current  contents,  ICONT,  the  program 
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branches  to  555-  At  555  the  remaining  capacity,  IST0(K2) , 
is  changed  to  the  value  NEWCAP  minus  ICONT.  The  index 
M  of  MH7  is  increased  by  1  to  point  to  the  row  number  used 
for  the  MH  storage  on  a  change  data  card.  The  GPSS  storage 
number  gi,ven  by  J+IFACNO  is  stored  at  MH7(M,1).  The  count 
IST0(Kl+5)  is  decreased  by  1  to  compensate  for  the  condition 
occuring  when  the  new  capacity  is  greater  than  or  equal  to 
the  current  contents  and  the  storage  is  full.  The  GPSS 
program  inserts  a  transaction  into  the  storage  under  these 
conditions  to  allow  transactions  waiting  on  the  delay  chain 
to  start  moving.  The  program  branches  back  to  statement  554. 
When  NEWCAP  is  less  than  the  current  contents,  the  remaining 
capacity  IST0(K2)  is  zeroed.  The  index  M  is  increased  by 
1  and  the  matrix  element  MH7(M,1)  is  made  equal  to  the  GPSS 
storage  number  given  by  J+IFACNO.  The  element  MH7(M+30,1) 
is  made  equal  to  the  new  capacity  NEWCAP.  The  program  branches 
back  to  554  to  process  the  remaining  storages  on  the  change 
data  card. 

The  error  condition  occurring  when  an  input  facility 
number  to  be  changed  cannot  be  recognized  by  the  model,  causes 
branching  to  557.  At  this  location,  an  error  statement 
specifying  time  of  occurrence  and  other  parameters  is  printed 
out.  The  logic  switch  JOBLS  is  set  and  the  program  returns 
to  GPSS  for  immediate  termination. 
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After  processing  a  change  card  the  program  continues  to 
statement  560  and  then  reads  the  next  change  card.  The  FORTRAN 
input  data  card  is  read  into  the  ICARD  array  and  the  number 
of  cards,  NCARD,  and  line  count,  LINECT,  are  both  incremented 
by  1. 

LINECT  is  tested  for  a  value  of  51  to  determine  if  a 
page  is  to  be  printed  in  full.  If  LINECT  is  less  than  51  the 
data  card  is  printed  immediately.  If  LINECT  equals  or  exceeds 
51,  a  new  page  is  started  and  the  data  card  printed  out.  The 
program  proceeds  to  statement  580,  the  location  that  the 
program  branches  to  when  this  section  is  utilized  initially. 

The  first  change  card  is  assumed  to  follow  all  other  landside 
simulation  program  data  cards  and  is  read  in  the  DATA  INPUT 
SECTION  of  the  FORTRAN  program.  At  statement  580,  card 
identifiers  are  tested  to  determine  identity  with  the 
variable  I CHAN  which  contains  the  character  string  'CHAN'. 

An  incorrect  card  type  causes  branching  to  585. 

The  flag  ICHNGl,  initially  having  a  value  of  zero  in 
order  to  cause  branching  to  580  for  the  first  entry,  is 
now  set  tc>  one.  Subroutine  XCODE  is  called  and  an  in-core  write 
into  the  array,  BUFFER,  is  performed  on  the  card  image. 

The  first  word  of  array,  BUFFER,  is  set  equal  to  NAMECH 
which  is  the  character  string  ' &CH '  for  an  ensuing  namelist 
read.  The  second  word  is  modified  to  blank  the  fifth  and 
sixth  characters  on  the  data  card  and  preserve  the  seventh 
and  eighth  characters  by  a  logical  AND,  plus  the  addition  of 
the  hexadecimal  number  in  variable  BLANK2.  XCODE  is  again 
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called  and  a  read  statement  is  executed  with  the  namelist  of 
CH. 

The  variable  IC  is  set  to  the  simulation  clock  time  CLKH. 

The  time  interval  in  seconds  from  current  simulation  time,  IC, 
until  the  next  change  occurring  at  the  time  indicated  by 
the  variable,  TIME,  is  calculated  and  placed  in  fullword 
savevalue  CHGXF.  The  program  returns  to  GPSS. 

Data  cards  not  recognized  as  change  cards  or  an  end 
of  input  file  cause  branching  to  585.  The  program  makes  CHGXF 
equal  to  106  indicating  no  further  changes  and  returns  to  GPSS. 

When  the  storage  capacity  must  be  lowered,  that  is  , 
the  number  of  servers  decreased,  the  initial  statement  of 
this  FORTRAN  program  section  caused  branching  to  statement 
590.  At  this  location  the  subscript  J  for  current  contents 
of  the  storage  number  contained  in  IVALUE(3) ,  obtained  by 
GPSS  from  MH7  (M,  1),  is  calculated.  The  new  capacity,  INVALUE(4), 
obtained  in  GPSS  from  MH7(M+30,1),  is  placed  in  NEWCAP.  The 
difference,  NURCAP  ,  between  new  capacity,  NEWCAP,  and  current 
contents,  ISTO(J),  is  calculated  and  tested  for  a  value 
greater  than  or  equal  to  zero.  If  true,  the  new  capacity 
equals  or  exceeds  the  current  contents  and  the  program 
branches  to  592.  At  592  the  remaining  capacity  IST0(J+1) 
is  made  equal  to  NURCAP  .  The  flag,  SCLXH  ,  is  given  a  value 
of  one  to  indicate  that  the  storage  capacity  lowering  process 
is  complete.  The  program  returns  to  GPSS. 

When  current  contents  exceed  the  new  capacity,  NURCAP 
is  less  than  zero.  The  program  makes  the  remaining  capacity 
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ISTOtJ+l)  equal  to  zero  and  returns  to  GPSS  to  wait  until 
a  transaction  leaves  the  storage  and  this  section  is  again 
accessed. 
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4.23  CONCESSION  SECTION 

This  section  is  called  by  transfer  Dassengers  who  are 
waiting  in  the  terminal  before  catching  their  connecting  flight. 

The  value  of  NOCONC  is  first  tested  for  a  value  of  zero.  If 
NOCONC  is  zero  then  there  are  no  concessions  defined  by  the 
input  data,  and  the  program  branches  to  752.  If  NOCONC  is  not 
equal  to  zero  then  the  variable  NPTFM  is  set  to  IVALUE(2) ,  the 
current  location.  The  variable  IFLT  is  set  to  IVALUE(3) ,  the 
flight  table  row  number.  The  variable  IGAT  is  set  to  MH1 
(IFLT, 9) ,  the  gate  number  for  flight  IFLT.  The  variable  I 
is  set  to  zero,  which  indicates  that  the  concession  is  in 
the  lobby.  If  IVALUE(6)  is  equal  to  2,  the  flag  that  the 
concession  to  be  found  is  in  the  concourse,  then  I  is  set  to 
MH9 ( IGAT ,4 ) ,  the  number  of  the  security  for  gate  IGAT. 

The  variable  L  is  set  to  INDEXF  (15)  +1,  the  subscript  for  the 
first  concession  facility  in  the  MHS>  facility  matrix.  The 
variable  M  is  set  to  INDEXF (15)  +NOCONC,  the  subscript  for  the 
last  concession  facility  in  the  MH9  facility  matrix.  The 
variable  IC,  which  will  be  used  as  a  count  of  the  concessions 
found  with  the  correct  location,  is  set  to  zero.  The  con¬ 
cession  facilities  in  the  MH9  facility  are  then  searched 
through  for  an  associated  security  whose  number  is  the 
same  as  I.  For  each  such  security  found  IC  is  incremented  by 
one.  If  the  concession  wanted  is  a  lobby  concession  then  I  is  zero 
and  each  concession  with  an  MH9(J,4)  value  of  zero  is  also 
a  lobby  concession  and  IC  is  incremented  by  one  for  each  such  case. 
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Next,  IC  is  tested  for  a  value  greater  than  zero.  If  it  is 
greater  than  zero,  indicating  concessions  were  found  in  the  right 
location,  then  the  program  branches  to  753.  If  it  is  not  greater 
than  zero,  then  at  statement  number  752  a  zero  is  assigned  to 
halfword  parameter  5,  and  savevalue  TRVXH  is  set  to  zero  which 
give  a  zero  waiting  time  and  zero  travel  time  to  concession, 
respectively.  The  program  then  branches  to  99999. 

At  statement  753,  the  variable  IRN  is  set  to  the  remainder 
of  I VALUE ( 4 )  ,  which  is  a  random  number  between  1  and  999, 
divided  by  IC  plus  one.  The  result  is  the  number  of  the 
concession  chosen  in  a  random  manner.  IC  is  set  to  zero 
and  the  MH9  facility  matrix  is  searched  again  for  concessions 
which  have  an  associated  security  which  is  equal  to  I,  or 
which  are  lobby  concessions  if  I  is  zero.  For  each  such 
concession  found,  IC  is  incremented  by  one.  When  IC  is 
equal  to  IRN,  the  chosen  concession  number,  the  program 
branches  to  statement  number  755. 

At  statement  number  755,  the  variable  NPTTO  is  set  to 
MH9(J,3),the  point  number  of  the  chosen  concession.  The 
statement  number  756  is  assigned  to  NEXT,  and  the  program 
branches  to  statement  number  950  to  determine  tb«.  walking 
time. 

After  the  walking  time  is  determined,  at  statement  756, 
the  variable  ICl  is  set  to  IVALUE(5) ,  the  current  clock  time. 

The  variable  ITIM  is  set  to  MH1 (IFLT, 6) *S0-IC1 ,  the  time 
remaining  in  seconds  before  the  flight  departs.  If  IVALUE(6) 
is  equal  to  1,  indicating  a  lobby  concession,  then  ITM  is  set 
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to  ITIM-LEAVEL-LEAVEL*IVALUE(4) /1000,  where  LEAVEL  is  the  latest 
time  before  flight  time  to  leave  the  concession.  LEAVEV  is  the 
spread  of  the  uniform  distribution  before  the  latest  time  that 
the  passenger  will  leave  the  concession.  LEAVEV  is  multiplied 
by  the  random  numbers  IVALUE (4) /1000  which  gives  a  random  value 
between  0  and  1.  The  value  in  ITIM,  as  a  result  of  this  state¬ 
ment,  is  thus  the  amount  of  time  the  passenger  will  spend  at 
the  concession.  If  IVALUE (6)  equals  2,  indicating  a  concourse 
concession,  then  ITIM  is  set  to  ITIM-LEAVEC-LEAVEV*IVALUE(4)/1000, 
where  LEAVEC  is  the  latest  time  before  flight  time  that  the 
passenger  will  leave  the  concourse  concession.  If  ITIM  is  less 
than  zero,  indicating  there  is  not  much  time  before  the  flight, 
then  ITIM  is  set  to  zero. 

Halfword  parameter  2  is  set  to  NPTTO ,  the  point  number 
of  the  concession.  Halfword  parameter  5  is  set  to  ITIM. 

Halfword  parameter  7  is  set  to  J,  the  MH9  subscript  of  the 
concession.  Byte  parameter  11  is  set  to  15,  the  process  code 
for  concession.  The  program  then  branches  to  statement  99999. 
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4.24  CONCOURSE  SECTION 

This  section  is  called  each  time  a  deplaning  passenger 
leaves  a  concourse.  NPTFM  is  set  to  IVALUE(2),  the  number 
of  the  point  at  which  the  passenger  is  coming  from.  IV3  is 
set  to  I VALUE ( 3 ) ,  which  is  the  gate  number  the  passenger 
came  from.  ISEC  is  set  to  MH9(IV3,4),  the  security  facility 
number  (concourse)  for  gate  number  IV3.  There  are  no  actual 
concourse  facilities  in  this  simulation.  The  entrance  and 
exit  to  a  concourse  are  considered  to  be  at  the  same  place  as 
the  security  facility,  so  that  the  number  of  the  concourse 
and  the  point  number  for  the  concourse  are  taken  to  be  the  same 
as  the  facility  number  and  the  point  number  of  the  security 
at  the  concourse  entrance,  respectively.  J  is  next  set  to 
INDEXF ( 3 ) ,  the  index  number  for  security  facilities,  plus 
ISEC,  to  obtain  the  MH9  row  number  for  security  (concourse) 
number  ISEC.  NPTTO  is  then  set  to  MH9(J,3) ,  the  point  number 
for  security  (concourse)  number  ISEC.  Statement  number  920  is 
assigned  to  the  variable  NEXT  and  the  program  then  branches  to 
statement  number  950  to  determine  the  walking  time. 

After  the  walking  time  has  been  determined,  the  program 
branches  back  to  statement  number  920.  NPTTO,  the  point 
number  of  the  security  (concourse) ,  is  assigned  to  halfword 
parameter  2.  ISEC,  the  facility  number  of  the  security 
(concourse),  is  assigned  to  halfword  parameter  5.  The  program 
then  branches  to  statement  number  99999. 
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4.25  WALKING  TIME  CALCULATION  SECTION 


This  section  is  called  from  other  parts  of  the  FORTM 
program  every  time  there  is  a  need  for  a  walking  time  deter¬ 
mination.  The  flag  NPTOSW  is  tested  for  a  value  of  one.  If 
it  is  equal  to  one,  then  a  non-positive  value  of  a  point  has 
been  previously  discovered.  If  NPTOSW  is  equal  to  one,  then 
the  program  branches  to  951  in  order  to  skip  the  error  message 
so  that  the  error  message  will  not  repeat  itself.  If  NPTOSW 
is  not  equal  to  one,  then  NPTFM  and  NPTTO,  the  point  numbers 
that  the  transaction  is  going  between,  are  tested  for  a 
greater  than  zero  value.  If  both  MPTFM  and  NPTTO  are  greater 
than  zero  then  the  program  branches  to  951.  If  either 
or  both  NPTFM  and  NPTTO  are  less  than  or  equal  to  zero, 
then  the  point  number  or  numbers  are  undefined,  and  the  flag 
NPTOSW  is  set  to  one  and  an  error  message  is  written.  At  951, 
halfword  savevalue  TRVXH  is  set  to  MHB (NPTFM, NPTTO)  to  obtain 
the  walking  time  in  seconds  between  the  points.  NPFTM  is  the 
number  of  the  point  the  passenger  is  coming  from,  and  NPTTO 
is  the  number  of  -  the  point  the  passenger  is  going  to.  MH6 
contains  the  walking  time  in  seconds  between  all  points 
in  the  airport  configuration.  ITEMPT  is  next  set  to  half¬ 
word  parameter  PH9 ,  which  contains  the  cumulative  walking 
time  in  seconds  for  that  passenger,  plus  halfword  savevalue 
TRVXH,  to  obtain  the  new  cumulative  walking  time.  The  new 
cumulative  walking  time,  ITEMPT,  is  then  saved  by  assigning 
it  to  halfword  parameter  9.  The  program  then  branches  back  to 
the  section  of  the  program  that  called  it  via  an  assigned 
GO  TO  statement. 
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4.26  ERROR  ABEND  AND  END  OF  PROGRAM  SECTION 

The  ERROR  ABEND  SECTION  is  called  from  other  parts  of 
the  FORTM  program  whenever  the  error  count  exceeds  ERRORS,  the 
maximum  allowable  number  of  errors.  ERRORS  has  a  default 
value  of  50.  The  message,  'ERROR  END  -  PROGRAM  TERMINATING  DUE 
TO  ERROR  COUNT  EXCEEDING  "ERROR"',  is  written;  and  logic  switch 
JOBLS  is  placed  in  the  set  position.  When  control  returns 
to  the  GPSS  program  from  the  FORTM  program,  this  switch  is 
always  tested.  When  this  switch  is  found  to  be  in  the  set 
position,  the  simulation  is  halted.  The  program  then  branches 
to  statement  number  99999. 

After  the  ERROR  ABEND  SECTION  of  the  FORTM  program  there 
is  a  list  of  CONTINUE  statements  with  statement  numbers  1  to  25 
which  act  as  dummy  sections.  All  of  these  statements  are  commented 
out  due  to  the  fact  that  there  is  an  active  section  which  has 
that  statement  number  as  its  beginning  point.  If  an  active 
section  is  deleted  then  the  corresponding  CONTINUE  statement 
should  be  uncommented  in  this  section. 

Statement  99999  is  a  RETURN.  This  is  the  only  exit 
from  the  FORTM  program  back  to  the  GPSS  program.  Finally, 
all  the  format  statements  for  the  FORTM  program  are  listed 
at  the  end  of  the  program. 
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code  for 
deplaning  curb 


Calculate  travel 
time  from  park¬ 
ing  to  curbside 


7 

Assign  NPTTO 
to  PH2 ;  point 
number  of 
deplaning  curb 


Assign  J  to 
PH7;  facility 
number 

4 

99999 


B-2-32 


Set  1  to  MH(IV3, 

1-)  *  INCEAT<4); 

MH5  Row  number 


for  baggage  clais 
area  assigned  tc 
flight 


T 

Is  . 

:V5  EC  li''  Yerw  717  \ 
Greeter  '  \ J 


Set  J  to  MH9(I,4) 
+  DPCES-1; 
deplaning  curb- 
side  storage  no. 


Set  J  tor!H3C,u) 
■*  DFDFS-l; 


dou:  le  par-  in r 

■s--?rag£_na.  _ 


3- 


■Get  GPSS  sub- 
script  I7E*«r 2 
from 


* 


As  s  i  Ft 


▼ 

A  s  s  i  ro  u  t 
?tiC;  flag 
for  recirc 


■T\ 


/  IST0(ITEF*3i> 
EO  0; 
storage 
full 

▼  ”° 


7il) 


Assign  GPCS 
Storage  number 
J  to  PH6 


_ ▼ 

Get  GPSS  sub¬ 
script  ITEMF3 
from  11*(J-1)»2 


Assign  GPSS 
storage  number 
J  to  PH6 


.  ? 

•Set  PB10  equal 
'to  1,  flag  for 
curb  slot 


▼ 


i —  ▼ 

FSet  PE10  equal 
bo  2;  flag  for 
double  parking 
slot 


7111 


'Set  2  esual  to 
(MH9(I,u)  ♦ 
DFQCS-1 


Pet  ITEPP3  to 
11*  (J-l  )♦? 


Assign  3  to 
P51C;  flat  for 
curb  queue  slot 

L  > 

z - 

I 

Assign  GTSP 
Storage  number 
’  J  to  PHC 

L _ i 


B-2-33 


ENPLANING  CURB 


Set  1  2  tc 

>«?<XV2t3)  ; 
•■planing 
curb  noMbflr 
for  bus  stop 
for  airline 


GT  0:  iK. 

^DUS  stop  enplaning^V, 
number  different  from 
SsTcgular  •nplsning 
^S^curt  n unbar 


Sat  1TLKP2  to 
WI2  < IV2.1 } 
regular  en¬ 
planing  curb 
number  for 

- * - 

Set  1 TEMPI  to 
IKDEXT  [SI* 

I  TEMP  2  ;  W9 

iou  number  for 

enplaning  curb 

Sat  NPTTO  to 
WKlTOfl.Ji ; 
point  number 
for  enplaning 
curb 


Set  JV2  to 
IVAlUE(2>;  air 
line  number 


S*t  IV3  to 
X VALUE (J) ; 
t  r ansuortation 


Set  J  to  HH2- 
(IV2.1)  en¬ 
planing  curb 
f aci lity 
number  for 
air  line  _ 


^XV3  E0  1,  u\,  ygc, 
^it  Private  c*r/  1 

drop  oft/^ 


/  I. - 

TV3  EC  4;  bus/ 
s- 1 


IV3  EO  ST} 
\  ti.:/ 


804 


T 

Set  M  equal  to 
EPDPS  +  L-i; 
double  parking 
storage  number, 
-curb.  _L _ 1 


T 


Calculate  sub¬ 
script  number 
ITEMP3  from 
11  *  (J-l)+2 


Assign  M  to  PH6, 
2  to  PB10;  flag 
for  double 
parking  \ 

T 


803 


805 

—  -  T 

Assign  0  to  PH5 
0  to  PH6 ,4  to 
PB10;  flag  for 
recirculation^ 

T 

99999 

V 


800 
\  ^ 

T 

-  ■  * 

Continue;  ter¬ 
minus  of 


Set  L=J, 
enplaning  curb 
for  IV2  airline 


I - * 

Set  ITEMP1  to 
!lNDEXF(8)  +L; 
^facility  number 
;for  curbside 


T 

Set  M  to  EPQCS 
+L-1;  GPSS 
storage  number 
for  curbside 


_  V 

Calculate  sub¬ 
script  ITEMP3 
from  11»-(M-1 ) 
+2 


flag  for  curb 
queue 


’l 

803 


B-2-35 


Eft  TRANCE 


«?rite  Message:  NO 

Pickets  &  checkin. 

FACILITIES  DEFINE!*- 
FOR  ENPLANING  1 
PASSENGERS.  RUN 
INATED. 


Set  I  INDEXF (14) +1; 
MH9  row  no.  for 
first  full  service 
ticket  fy ilify 


Set  N  to  MH9 (1,4) ; 
(airline  code  for 
first  full  service 

■■ticket  facility 


Write  Message:  NO 
'tickets  and  checkin 

FACILITY  DEFINED 
'FOR  AIRLINE  CODE: 
|IV3,  FACILITY  OF 
I  AIRLINE  CODUl 
USED 


Jl. 


Increment 
L;  error  < 

NERCNT  by 
count 

t 

'  V£f  /"BKCOT  Eq' 

(  s  max. 

<~^lowxbl»  error  count 

exceeded 


i853»»  v«-£ 


Set  M  to  TICQS+L-1; 
gueue-etorage  no. 
for  full  service 
ticket,  facility 


Set  I TEMPI  to  CHECK2; 
block  location  for 
expreaa  checkin 


B-2-44 


Set  L  to  H;  no. 
in  MH5  of  flight 


transfer  flights 


Set  1^2  to  IVALUE (2 ) 
MH1  Row  number 


Xv3  eq  to  r> 

delete/' 

is  ticket 
punter  no.® 

- SB. 

y' n\ 
//IV3  E0  2> 
■Os  flag  set  t 

*!>=  a*  faiie 


Miiplto 
PHI;  HH1  row 
number  of 
last  flight 
tried  in 
initialization 
of  flight  table 


/  la  \ 

/  1  or  9»X 
"neve  ell  possible* 
V^f  lights  been^/ 
\  triad  / 


^Increment  I  by 


set  MHsmorxp*)  toT 
I:  place  flight  in 
transfer  table 


Set  1  to  1 


/  la  \ 
/''MB1(I,1>  n#^>^ 

/  zero ,  or  Dos . ;  \ 
gnd  of  table .  arrival 
»l*ight  or  deplaning^ 
flight 


^t  I  TEMPI  to  MH1 
.61*60;  time  fro 
latart  in  seconds 


•■y/lTEMPl  xtaxbSV. 
time  of  flight  great* 
>er  than  time  to  add/ 
\ to  flight 
\table  / 


/ITIW1 

/XfOXJi  Is  time  \ 
pf  flight  less  than  tis 
delete  from  fligh* 
\  table  / 


/  I*  \ 
i/Tmi(i,ii)  eq  oTV 
Is  there  no  room  on 
S^II?ht  for  transit 
^N^passanger^/^ 


3  or: /} 


B-2-49 


B-2-50 


MISCELLANEOUS  ERROR  CONDITIONS 


Set  IV2  to 
IVALUE(2) ; 
type  of 
atror 


Branch  to  corresponding  statement  number* when!  IV2  °ne  -h€  following  numbers 


Write  Message: 
VEHICLE  XAC 

I VALUE  (3)  UN¬ 
ABLE  TO  MATCH 
WITH  PAX  AT  DE¬ 
PLANING  CURB. 
CHECK  USES 

CHAIN  'ERROR' 
FOR  THIS  _ _ 

Write  Message: 

PAX  XAC  WITH 
TRANSPORT  MODE 
IVALUE ( 3 )  ENTER¬ 
ED  BLOCK  DPLCO. 
CHECK  USER  CHAIN 
'ERROR'  FOR  XACNO 

IVALUE^L-- - 

B-2-52 


FORMATED  REPORTS 


•ranch  to  corresponding  statement  nuabar  whan  X  is  one  of  the  following  nuabers: 


Jl 


B 

B 

B 

B 

B 

B 

B 

B 

m 

a 

a 

a 

n 

a 

D 

a 

a 

a 

a 

e 

Ql 

|Q 

03 

Continue  to  sake  reports  for  gates,  eustoae,  security,  express  checkin,  ticketing,  ear  rental,  and 
issnieration.  skip  other  facility  types. 


B-2-53 


/  x»  X 

/^NCOUNT  LESS?X 
ha*  full  page  beer 
printed 


B-2-54 


©~i 


w  mw!  to 
currant  contantrf 
e(  ttornf*  plan  I 
nuntwr  o t  anii^ 
•Me  ante*  tn 
•  tor>f 


let  HI mx»  to 

1:  Mt  U>9 
tor  untfttfuuK! 
nmtor  of 

- _ 

^irtt92  cr  loooS* 

!•  »unb»r  of 

\WBtl 

I”0 

J 

r  *ot  irt»05  to 
i*ro{inox+i) 

•*OUi  on  try 
count  tiHi 
[  tcalo 

1 

B-2-5  5 


B-2-57 


CLOCK  UPDATE 


Set  ITEMPl  to 
CLKXH+I VALUE 
(2)/60;  in¬ 
crement  clock 
by  one 
minute 


Set  ITEMPl 

to 

ITEMP1+40 ; 

in- 

Jcrement  hours  j 

by  1 

SNAPSHOTS 


B-2-60 


INCREMENT  LINSHPBY1 


SET  X  EXTCT  TO  ENTRY 
COUNT  OF  DESIGNATED  STORAGE 


B-2-62 


969 


e 


SET  JTHLF(IR)  TO 
CUMULATIVE  VALUE  ISHLF 


CONTINUE 


DO  969  IL  •  1,7 


SET  JSECPL  TO 
CUMULATIVE  SECURITY 
OUTFLOW  IN  MH12IIL) 


CALCULATE  CURRENT  SECURITY 
PtOW,  STORE  IN  TSPLOW  CFL+1 ) 


STORE  CUMULATIVE  SECURITY 
PM"  IN  ISECPL(IL) 


DO  973  IT  •  1,15 


SET  JTCKFL  TO  CUMULATIVE 
PULL  SERVICE  COUNTER  OUTFLOW 
IN  KH14 (IT) 


I 


8-2-63 


CHANGE  CARD  PROCESSING 


I  VALUE  ( 2) 

EQ  2;  are 
current  content* 
creater  than 
new  ^capapity 

'i'  NO 


Yea 


Does 

ICHNG1  EQO; 

\  processing  \no 
'first  chance 
x  card 


>580 


f  Yes 
Does 

SERVRS (I) 

EQ  0>  data  \  No  \£$0 

\  present  on  / 

\  input 
card^ 

J  YM 

Set  1*1, index  of  servers  array, 

M  »  0  facility  count  on  data  card 


Set  L  «  1, 
loop  counter 


SERVRS  (IX 


B-2-65 


4 


Set  J  to  FACOSX(L) 
number  of  first 
storage  in  type 


Does 

J  EO  0; 

v  invalid  fac- 
Nility  type 

•\ 


Set  J  -  J-Ij 
i index  for  facility 
ityo«  I, 


ISet  I  -  1+1  ? 
jincrement  subscript 
jfor  SERVRS  array 


Set  IFACNO  EQ 
SERVRS ( I) f  next  : 
(data  item  in  SERVRS i 
jarray  j 

\» 


Does  \ 
IFACNO  EQ  6; 
vlast  data 
\item 


Is 

IFACNO  IT  Os 
^another  facil^“ 
'ity  type 

No 


J 

•IFACNO  GT 

NFACSMU.,1)  yes 

N.  GT  number  of^ - 

•facility  i* 


lea  y 


_  y 

fTet  Kl“ll* ( J+FACNO-1) +1; 
j  subscript  for  current 
contents  of  storage 


B-2-66 


I 


r 


-  T  . 

Write  Error 
Messaoe 


Set  Logie  Switch 
JOBES  to  terminate' 
simulation  run  1 


S58 


-  . 

2ero  SERVRS 
array 


|  Set  NSCXH  to  M; 
total  count  of 
storage  changes  to 
perform 

i _ 

560  Read  next  change 
card  into  ICARB. 

For  EOF,  go  to  585  | 


Increment  NCARD 
by  1 


B-2-69 


579  i Write  header 
| for  output 
page  ,  --- 


/I* 

-''I  CARD  (1) 

WE  ICHAN;  N 
wrong  card./' 
\tyoe 


Set  XCHWG1  to  Ij 
flag  for  first 
change  data  card 


(Write  ICARD 
linto  BUFFER 

(array 


Set  BUFFER (1) 

-  NAMECH ;  tCH 
for  namelist  read 

- - - 1 

,  V  - 

I  Set  BUFFER2  «  IAND (BUFFER (2 ) J 
MASK2)  t-  BXAWK2;  blank  out  ] 
5th  and  6th  card  characters 

“T  *  " 

Read  with 
namelist  of  CH 
from  BUFFER 


ss 

- 

\ 

M 


ss 


I  Set  IC=  SAVE VALUE 
I  CLKXH ;  current  time 
|  of  24  hour  clock 


Calculate  seconds 
from  current  time  to 
next  storage  change. 
Place  in  CHGXF 


99999 

v  v 


585 


Set  CHGXF  to  1,000,000 
delay  final  change  beyond 
j  simulation  run  time 

~  A' 

99999 


,v 

590 


Set  J=11*(IVALUE(3)-1) 
+1;  current  contents 
subscript 


Set  NEWCAP® I VALUE ( 4 ) ; 
GPSS  value  from  MH7 
(M,l) 


TT 

B-2-71 


TT 


\ 

Set  NURCAP=NEWCAP 
-ISTO(J);  subtract 
current  contents 
from  new  capacity 


< 


Is 

NURCAP  GE  0; 
does  capacity 
exceed  or  equal  >"T 
current 
contents 


N 


- V - 

Set  ISTO (J+l) 20 ; 
set  remaining 
capacity  to  0 


99999 


592 


Set  ISTO ( J+l )=NURCAP; 
remaining  capacity 
set  to  NURCAP 


;  Set  SCLXH  to  1; 
j  flag  for  storage 
j  lowering  complete 


✓ 

99999 


.  592 


B-2-72 


(Set  I  to  MH9(ir.AT 
'4*;  number  of 
associated  secur¬ 
ity  for  gate 


i  Set  NPTFM  to 
'  IVALUE(2) ? current 


! Set  IFLT  to 
: I VALUE (3) ;  flight 
j table  row  no. _ 


Set  IGAT  to  MH1 
(IFLT, 9)  ;  gate 
no.  of  flight 


Set  I  to  0: 
flag  for  lobby 
concession 


J<ALUE(6)E0Nl; 
is  switch  set 
\concourse 
eqncessi**r 


_  j 

[Set  L  to  INDEXF(15).+  1  j 

1 

subscript  of  first 
Iconcession  in  MH9 

1  1 

Set  M  to  IND£XF(15J+ 
NOCONC;  subscript  of 
last  concession  in  MH9 


Set  IC  to  0;  count  1 
of  concessions  in  ; 
right  location 


MH9 (J, 4) EQ  I; 

Increment  IC  by  1;  does  concession 

count  of  concessions  have  the  rioht 

at  right  location  V  *  security  or  is 

i-b.  lobby  conces¬ 
sion 

No 

X. 

is  ' 

IC  EQ  IRNr 

is  number  of  (  Yes 
concession  the  _____ 
same  as  the 
one  ramdomly 
picked 


Increment  J  by  1 ; 
MH9  subscript 


sk 


tried 


Yes 

V  .. 

755  Set  NTTO  to  MH9 

(J,3) ;  get  pt.  no. 
of  concessions 

r 

Assign  756  to  NEXT; 
return  after  walking 
time  determination 

.V 

950 


B-2-75 


756 


L 


B-2-77 


ERROR  ABEND 


Write  Message 
IERROR  END 


iPlace  logical 
switch  JOBLS 


in  set  Position; 
switch  will  halt 
simulation  when 
program  returns 
to  GPS.S _ 


B-2-79/B-2-80 


APPENDIX  B-3 


LISTING  OF  FORTM  SUBPROGRAM 


B-3-1/B-3-2 


HELPC  IINKC  -  H  E  L  P  A  F  0  R  T  M  00001000 

00002000 
0C0O3C00 

SUBROUTINE  LINKCUVALUE, 1 SAVEF , ISAVEH , I  FAC , ISTQ , FSTO , IQUE ,  00004000 

•  FOUE  ,  I  LOG,  IT  AS,  FTAB.  IUSE  ,  I'JSEF  ,  FUSE ,  IMAX ,  IMAXB  ,  IMAXH,  IMAXBH ,  FSAVELC0005000 

• , IMAXL , FMAX8L )  00006000 

REAL*8  FOUE, FUSE, FTAB  00007000 

INTEQER*2  ISAVEH, IlOG, IUSE,  IMAXBH  00008000 

DIMENSION  I VALUE! 6 ),ISAVEF(2) , I SAVEH< 2 ) , I F AC( 2 ) , t STO( 2 ) , FSTO< 2 ) ,  00009000 

•  IOUE( 2 ) , FOUE 12), 1L0G( 2) , I TAB( 2 ) . FTAB( 2) , IUSE ( 2  > . IUSEF( 2 ) . FUSE ( 2 ) ,  00010000 

•  IMAX (  2  1  , IMAX  B ( 2) , IMAXH (2 ) « IMAX  BH( 2 ) , FSAVEL ( 2 / , IMAXL (2)  , FMAXBL (2)  00011000 

00012C00 

INTEGER  PVAL  00013000 

0C014C00 

REAI  *8  DUMB, ZAP, NANIERB  00015000 

INTEGER*4  TIME,BUFFFR,8I.ANK,BLANK1  , FACTYP , TYPTST , START , FINISH  0001 6000 

INTEGER**  BLANK:?, SERVRS  00017000 

INTEGER**  ERRORS, ASTRSK , FACQSX , FROMTO, FROM, TO  00018000 

INTEGER *4  ENOXF.TRVXH.BOI XH , ABUXH .DBUXH , XFRXH , XFAXH, XFDXH, SCLXH  00019000 

INTEGER«4  CLKXH,CHUXF,NSCXH,SLCXH,GRTXL,WWGXH,GRGXL,GRTOO,CPKXH  00020C00 

INI  EGER  *4  CGTXL.  PCBXL,  CRBXH  ,  CONXH  00021000 

INTEGE R*4  CUSOS , RCR05 , CHKCS , DPCBS , EPCBS , SECOS . GAOSL, PAROS , TICOS  00022000 

INTEGER*4  RCARO . BAGCO , OPLCO . CHEK2 , CHEK3 , CGTRO . ERROR, SECUO , TRX99  00023000 

INTEGFR'4  CTOL0.CTRL1  00024C00 

INTEG£fl*4  OPOPS.DPOCS.EPOPS.EPOCS  00025000 

INTEGER-2  IDl'MI  .  FACNO .  PO 1  NT  ,  PO  INTX ,  POINTY .  I PARAM ,  NSORTD,  EXITPT  00026000 

INTEGER *2  NUEPLC, NSECUR , NCUST , AGENCY , NIMMI , NPARKl . AI RL IN, XY  0C027C00 

INTEGER*2  EN TRPT , EXPCHK , BOARD T  >  WALKT , BUSTOP , TRFlTI , TRF LTD  00026C00 

INTEGER*!  FLTNO. AC. OOM.COM, INT , GATE , PAX , BAG . DEF lIN  0C029C00 

INTEGER* 2  lEPSCH.LrNES.EPCURB.OEFBAG.STO, CAP, ADO. DELETE, SCALE  00030000 

INTEGE R*2  AGENTS , S I /E , 01 ST .NO . TWO'dAY . DOMDI R . COMGI R , INTDIR  00031000 

INTEGER*?  DP ARK ( 4 )  ,  CL'REQ  (4  )  ,TPAX(3)  00032000 

INTEGER*?  NPTCSW  C0032000 

INTEGER*!  PH.PF.PB.PL.LR.LS  00034000 

!NTEGER*2  NSNAP(20. 21/40*0/  00P33C00 

INTEGER*!  ITITLE(64.5)  OCCTSCOO 

INTEGE R  2  GP  S10(  2-1  >  ,'24*0/ .GPQUEI 24 ) /24*0/ .  GPHALF  ( 24 ) /24»0/  00036:00 

INTEGER*!  CNTRCT(24)/24.0/,CRCON(24)/24*0/  00036200 

INTEGER*?  TSGOUT (!6)/25*0/,TSOUE(25)/25»0/.TSHALF(2S)/25»0/  00036200 

INI  EGER *2  FLOW.  ITU.?,  JENT CT  ,  JCRCON ,  ISTRNO  00036-'00 

I NTEGc R*2  JTH'.F(24  1/  24*0/ ,  I SECF L( 7)/7 *0/ ,  I TCKFL (  1 5 )/ 1 5*0/  00336E00 

IHTElJcP*2  XENTcr.XCTICON,  ISHLF,  JSECFL,  JTCKFL  00C36rC0 

INTEGER* 2  TT  FL')W(  161/16*0/,  TSF 104(8 1/8*0/  00036*00 

00037000 

DIMENSION  BU FFERf 2 1 ) , ICARG( 20) , FACNOt 4 ) , FACTYP ( 20 ) , i PaRAM(3 ) . XY(  2 ) OCG38COO 
DIMENSION  NFACSM(20,2) , IDUM1 (24) ,INDEXF(20) .NEGRTDI2) , LINES(B)  00039000 


N  K  C  -  H  E  L  P  A 


DIMENSION  NFACSM(20.2), IDUM1 (24) , INDEXF(20) ,N3GRTD(2) , LINES(B)  00039000 

DIMENSION  :e°SCH(TO,10) , NAMER8 (20),CAP(15) ,XFMTlT(101 ) ,FACQSX(20)  00041C00 
DIMENSION  AGENT5(4|, 5126(41 , 0UM3 ( 6 ) , FR3MTU( 2 ) , lTEMPA(24)  00041000 

DIMENSION  IT£MP0(2O)  00041100 

DIMENSION  SERVRSUO)  00042000 

00043000 

DATA  N FACSM , DEFl IN , DE FBAG , BDARDT , ZAP/ 43*0 ,20000000000000000/  00Q44C00 

OATA  TRFLTI , TRFLTO.NO/2.0, 'NO'/  00045000 

DATA  ICHNG1 /O/ , ITEMPA/24*0/  00046000 

OATA  PH.FF.PL.Pa.LR.LS/’PH* , *PF* , 'PL' . 'PB* . *  LR* , ' IS’,  0C047C00 

DATA  IARRV, IOEPT, IOVER, IGRTS/' ARRV' ,'OEPT' ,'OVER' , * GRTR 1 /  0004BC00 

DATA  IPARM, 1BUS.IST0R, I  TRANS/' PARM' , 'BUS/' , 'STOR' . 'TRAN'/  00049000 

DATA  BLANK, JOBTST, IARLIN, IPRETI/'  1 , ‘ J03T ' , ' AIRL ' , ’ XPRE ' /  OOOSOCOO 

DATA  IRUNT.ICHAN.ITISER/'RUNT1  , 'CHAN' .'TIME'/  00051000 

OATA  FACTYP/ 'GATE' , 'CHEC ' . 'SECU' , ' BAGC ' , 'CUST ' , ’ ENTR ‘ , 'EXIT' ,  00052000 

•  'ENPL' , 'XFER' , 'PARK' , 'RENT' , 'DEPL' ,' IMMI ', 'TICK' .  00053000 


B-3-3 


uuouu  uuuuu 


•  'C0NC',5‘*  ■/ 

DATA  NAMEFL.NAMEGE.NAMEG1 .NAMEND/'  SFL' . '  SGE ' , '  SGT ' , 1  SEND 1 / 
DATA  N AMEST  ,  NAMEAL ,  NAMET  1  ,  NAMEOV/ 1  *ST'.’  SAL',1  4TI '  ,  *  SOW 
DATA  NAMEPA.NAMEBU, NAMES. NAMETR/'  SPA1,1  SBU','  SS  STR'/ 
DATA  NAMECH, NAMETS/ '  SCH ' . '  STS'/ 

DATA  B LANK  1 ,MASK1  , ASTRSK/Z40000000 , ZFFOOOOOO , Z5COOOOOO/ 

DATA  BLANK2 , MASK2/Z40400000 , Z0000FFFF/ 

DATA  IEPSCH/  1 .2, 3, A, 5,6. ?,8, 9, TO.  2,1,3,4,5,6,7,8,9.10, 

•  3,2.4,1,5,6,7,8.9,10,  4,3,5,2.6.1.7,8.9.10, 

•  5,4,6.3,7,2,8,1,9,10,  6,5,7.4,8.3,9,2,10,1, 

*  7,6,8,5,9,4,10,3,2.1,  8,7,9,6.10,5,4,3,2,1, 

*  9.8.10,7,6,5,4,3.2,1,  10,9,8,7.6,5,4,3,2,1/ 

DATA  LINSNP, L I NSNX , NTLINS/2«50 ,0/ 

OATA  NAMER8/ 'GATE  ', 'CHECKIN  1 , 1  SECURITY ' , ' BAGCLAIM ' , 

*  'CUSTOMS  ', 'ENTRANCE* , 'EXIT  1 , ' ENPLCURB ' . 

•  ' TRANSFER' ,' PARKING  •,' RENTACAR ',' OEP LCURB ' , 

*  '  I  Mi  11 GR  AT  '  ,  '  1  1CKET SS '  ,  ' CONCESS I  '  , 5*  '  ’/ 


THIS  EQUIVALENCE  PROVIDES  A  CONVENIENT  WAY  TO  ZERO  OUT  THE  AREA  OF 
MAIN  MEMORY  CONTAINING  INPUT  VALUES  BEFORE  READING  EACH  CARD. 
EQUIVALENCE  ( DUMB ( I I.IDUM1 (1 ) . FACN0(1 ) ■ BAG, LINES! 1 ) .STO.ADO). 

•  ( I0UM1 (2) . CAP l 1 ) ) . (IDUM1 (3) .FLTNO) , 

•  ( IDUM1 ( 4 ) ,GA1 E) , 

•  ( 1 DUM 1(5) , TIME , AGENTS( 1 ) , SIZE! 1  ))  . 

•  ( I DUM 117), AC, GIST) ,  ( IDUM1 (8) . DOM) , 

•  I 1DUM1 (9), INI, EXIT PT),  ( I DUM I ( 1 0 ) , COM. ENTRPT) . 

•  ( IDUM1 ( 11 ) , I  PAR AMI  1 ) ,EPCURB,NDEPLC,nSECUR,NCUST, 

•  AGENCY, DELETE, A I RLIN, OOMOIR) , 

•  ( I0UM1 ( 12) ,PAX,EXPCHK,NlMMI,NPARKL,COMDIR) , 

•  (  I0UMM13) ,  BUSTOP  ,  I NTDI R ,  TPAX  (  1  ))  , 

•  ( IDUM1 ( 14) .POINT) . 

•  ( I0UM1 (15),P01NTX,XY(1)),  ( IDUM1 ( 1 6 ), POINTY ) , 

•  ( IDUM1 l 17) ,DPARX( 1 ) ) , UDUM1 (21 ) ,CURBO(  1  ) ) 


THIS  EQUIVALENCE  OVEPLAYS  COL.  1  OF  *NFACSM"  (THE  NUMBERS  OF  EACH 
FACILITY  TYPE)  WITH  SCALARS  WITH  MORE  INTELLIGABLE  NAMES. 

EXAMPLE:  NFACSMf  3 . 1 )  AND  " NOSECU "  BOTH  REFER  TO  THE  NUMBER  OF 
AIRPORT  SECURITY  FACILITIES. 

EQUIVALENCE  ( NFACSM( 1,1), NOGATE ) ,  ( NFACSMf  2 , 1 ) .NOCHEC ) , 

•  (NFACSM( 3,1) .NOSECU),  ( NFACSMf  4 , 1 ) , NOBAGC ) , 

•  ( NFACSMf 5, D.NOCUST),  (NFACSM( 6 , 1 ) .NQENTR ) , 

•  (NFACSM(7,1 ) .NOEXIT),  (NFACSM) B , 1 ) . NOENPL) , 

•  ( NFACSM) 9 , 1 ) , NOTRAN ) ,  (NFACSMf 10.1) .NOPARK) , 

•  (NFACSM! 11 ,1 ) .NORENT),  (NFACSM( 1 2 . 1 ) .NODELP) , 

•  (NFACSM! 13,1 ),NOIMMI),  ( NFACSM( 1 4 . 1 ), NOTICK) , 

•  (NFACSM! 15, 1 ) .NOCONC),  ( NFACSMf 1 . 2 ) , iNDEXFf 1 ) ) 

C 

C  THIS  EQUIVALENCE  OVERLAYS  FACQSX  WITH  THE  BASE  VALUES  OF  THE 

C  QUEUES,  STORAGES,  ETC..  ASSIGNED  EACH  FACILITY  TYPE  BY  THE  GPSS 

C  COMPILER. 

EQUIVALENCE  ( FACQSX! 1 ) , GAQSL) ,  ( F ACQSX< 2 > , CMKQS ) , 

•  ( FACQSX ( 3 ) , SECQS ) ,  ( FACQSX ( 5 ), CUSQS  ) , 

•  ( FACQSX ( 8 ) , EPCBS ) ,  ( FACQSX ( 10) , PARQS) , 

•  (  FACQSX!  1D.RCRQS),  ( FACQSX  ( 1 2 )  .DPCBS  )  , 

•  ( FACQSX ( 1 3 ) , I MMQS )  •  ( FACQSX( 1 4 ) . TICQS ) 

C 

C  THIS  EQUIVALENCE  ENABLES  THE  BUILT-IN  SORT  ROUTINE  TO  SORT  MH9  BY 
C  FACILITY  NUMBER  BY  FACILITY  TYPE  IN  A  SINGLE  PASS. 

EQUIVALENCE  (F'SORT.NSORTDfl  )) 


00C54C00 
00055000 
00056000 
00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069C00 
00070000 
00071000 
00071100 
00072000 
00073000 
00074000 
00075000 
00076000 
0007700 0 
00078000 
00079000 
00080000 
00081000 
000S2C00 
00083000 
00084000 
OOOBSCOO 
00086000 
00037000 
00088000 
00089000 
00090000 
00091  COO 
00092C00 
00093000 
00094000 
00095C00 
00096C00 
00097C00 
00098000 
00099000 
00100C00 
OOIOICOO 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
00110000 
00111000 
001 12000 
00113000 
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C 

C  THIS  EQUIVALENCE  OVERLAYS  1  He  ARRAY  • FROMTO*  WITH 
C  *  FROM*  ANO  "TO".  SEE  OVERRIDE  CARO. 

EQUIVALENCE  (  FROMTO(  1  ) ,  F  ROM) ,  ( FROMTO( 2 ) , TO) 


THIS  NAMELIST  FOR  ‘AIRLINE*  CARDS. 
NAME LI  ST/A L/ LINES, 

*  EPCURB, 

*  EXPCHK , 

*  BUSTOP 


THIS  NAMELIST  FOR  "BUS/LIMO"  CARD. 
NAME L I ST/8U/ ARVBUS . 

•  OEPBUS 


THIS  NAMELIST  FOR  “ARRV"  AND  ‘DEPT*  (FLIGHT)  CARDS. 
REQUIRED:  TIME.  GATE.  PAX. 

FOR  DEPARTING  FLIGHTS;  ARLIN  OR  DEFL1N. 

FOR  ARRIVING  FLIGHTS;  BAG  OR  DEFBAG. 
SPECIFY  MIDNIGHT  AS  2400. 

DEFAULTS:  DOM.1 , airlin*deflin,tpax»o 

BAG  (Cl  AIM  AREA)  FOR  ARRIVING  FLIGHTS  ONLY. 
NAMELIST/FL/FLTNO. 

•  AIRLIN, 

•  TIME, 

•  AC. 

•  DOM.INT.COM, 

•  GATE, 

•  PAX, 

•  T  PAX , 

•  BAG 


THIS  NAMELIST  FOR  THE  FOLLOWING  FACILITY  LOCATION  CARDS: 
■GATE"  ‘CHECKIN*  "SECURITY* 

■BAGCLAIM*  "CUSTOMS'  "ENTRANCE* 

•EXIT"  "ENPLCURB*  "XFER" 

■PARKING*  "RENTACAR"  "DEPLCURB* 

■IMMIGRATION*  *T ICKET S4CHECK IN* 

NAKELIST/GE/FACNO. 

•  AGENTS. S I ZE.T NOWAY, DPARK.CURBO, 

«  l param 

•  NDEPLc!nSECUR.NCUST, AGENCY, AIRLIN, 

•  NIMMI .NPARKL, 

•  POINT, 

•  XY.POINTX, POINTY, 

•  EXITPT, 

•  ENTRPT 


THIS  NAMELIST  FOR  "GRTRANSP"  (GROUND  TRANSPORTATION)  CARD. 
REAL  VARIABLES:  PVTCAR,  SELF,  CRENT,  BUS,  TAXI,  CURB,  PARK 
NAMELIST /GT/OOM , COM . INT , 

•  PVTCAR, 

•  CRENT, 

•  BUS, 

•  TAXI 

THIS  NAMELIST  FOR  WALKING  TIME  "OVERRIDE*  CARDS. 

NAME  L I ST/OV/ FROMTO, FROM, TO, 
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001 14COO 
001 15C00 
00 11 6000 
001 17C00 
00119000 
00 1 1 9000 
00120C00 
00121000 
00122C00 
00123000 
00124000 
00125000 
00126000 
00127000 
00128000 
00129C00 
00130000 
00131000 
00132C00 
001 33C00 
00134000 
00 1 35C00 
001 36C00 
00137000 
00138000 
00I39C00 
00140000 
00141000 
00 142000 
00143C00 
00144000 
00145000 
00146000 
00147000 
00148000 
00149000 
00150C00 
00151000 
00152000 
00153C00 
00154000 
00155C00 
00 ’ 56000 
00157000 
00 1 58C00 
00 1 59C00 
00 l 60000 
00161  COO 
00 1 62000 
00163C00 
00164000 
00 1 65C00 
001 66C00 
00 167 COO 
00168000 
00170000 
00171000 
0O172COO 
00173000 
00174000 
00175C00 
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•  T I  ME , 01  ST 
C 

C  THIS  NAMELIST  FOR  "PARM"  (PARAMETER)  CAROS. 

C  REAL  VARIABLES:  GREET.  WWGATE,  GRGATE,  CIRCPK 
C  DEFAULTS :  BOARDT  *  15  MIN.,  ERRORS  ■  50. 

NAMELJ  ST/PA/ ERRORS . 

•  BOARDT, 

•  LEAVEL, 

•  LEAVEC , 

•  LEAVEV, 

•  GREET, 

•  WWGATE, 

•  GRGATE, 

•  CURBCK , 

•  CIRCPK, 

•  CRBC.T . 

•  PRKCRB 


THIS  NAMELIST  FOR  "STORAGE*  CAROS. 
NAMEHST/S/STO. 

•  CAP 


THIS  NAMELIST  FOR  "INITIAL*  CARO. 

REAL  VARIABLES:  DSTFAC  AND  WALKSP  ARE  REAL  VARIABLES. 
OEFAULTS*.  SCALE*  1 ,  0STFAC*1.I,  WALKSP"! . 0  (METERS/SEC) . 
NAMELI ST/ST/START. 

•  FINISH, 

•  OEFBAG, 

•  OEFLIN. 

•  OST  FAC , 

•  SCALE, 

•  WALKSP 


THIS  NAMELIST  FOR  "XPRETICKETED*  CARD. 
NAME L I ST/TI/OOM, 

•  COM. 

•  INT, 

•  DOMOIR. 

•  COMOIR, 

«  INTOIR 


THIS  NAMELIST  FOR  "TRANSFER*  (FLIGHT)  CARO. 
DEFAULTS:  ADD" 7200( 1 20  MIN ) .DELETE" 1800 (30  MIN). 
NAMELI ST/TR/AOD, 

•  DELETE 


THIS  NAMELIST  FOR  "CHANGE"  CARD. 
NAMELIST/CH/TIME. 

•  SERVRS 


THIS  NAMELIST  IS  FOR  ARRAYS  SPECIFYING 
STORAGE  QUEUE  AND  HALF-WORD  NUMBERS  FOR 
TIME  SERIES  REAO-IN  ON  'TIME-SERIES'  RECORD. 

NAMELI ST/TS/GPSTO, 

•  GPQUE , 

*  GPHALF 

C 

MH1(IR,IC)"MH01Ba.ICNH01"IR+IC 
MH2 (IP, IC) "MH02B+ICNH02" 1 R+IC 


00176C00 
00177C00 
0017BC00 
00179C00 
001 80000 
00181000 
ooie2coo 
00183000 
00184000 
00185000 
00186000 
00187000 
00188C00 
00188010 
00189C00 
00189100 
00189200 
00190000 
001 91  COO 
00 1 92C00 
001 93000 
00194000 
00 1 95C00 
00196C00 
00197000 
00198C00 
OC199COO 
00200C00 
OC2O1C0O 
C0202000 
00203000 
00204000 
00205000 
00206000 
00207C00 
00208000 
00209000 
00219000 
0021 1C00 
00212000 
0021 3C0O 
00214000 
002.15000 
0C21GC00 
0021 7000 
0021 8000 
00219000 
00220000 
00221000 
00222C00 
00222100 
00222200 
00222200 
002221*00 
00222S00 
00222C00 
00222-00 
00222800 
00222900 
00223000 
00224000 
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MH3( IR . IC)*MH03B+ICNH03*1R+1C 
MH4(  IR  ,  IC)*MH04Q+ICNH04*  1R+IC 
MH5( IR )*MH05B+IR+1 
MHS( 1R,IC)«MH06B+ICNH06»IR*1C 
MH7  (  I R  ,  IC  )  *MH07B+ICNH07»  1 R+-IC 
MH8( IR , IC ) *MH088+ICNH08* 1 fi+IC 
MH9( IR , IC)»MH09B+ICNH09« 1R+IC 
MH1 1 ( IR)*WH1 1B+IR+1 
MH12( IR)*MH1 2B+IR+1 
MH13( IR)«MH1 3B+IR+1 
ML2(IR,IC) «M L02B+ I CNLC2 • 1 R+I C 


RETURN 


ENTRY  FORTM( IVALUE) 


I6RNCH*IVALUE( 1  ) 

GUTO(t .2.3,4,5.6.7,8.9.10.11.12.13,14.15.16,17.18,19,20. 
21 ,22,23,24,25) .IBRNCM 


1  CONTINUE 

PERFORM  LINKAGES. 

C0T°UT£  MATRIX  BASE  A00RESSES. 

READ  SIMULATION  START  AND  END  TIMES. 

RETURN  LENGTH  OF  RUN  IN  XHSENOXH . 


...I  NPUT  SECTION 

WRITE(6,100S> 

JOBT.O 

LINECT  *1 

MAXPT  *  0 

NCARO*  0 

NERCNT  *0 

NPT0SN*0 

NGEOxO 

NCFXFR-0 

NRCRSW-0 

NROW«0 

TRFLTI-0 

TRFLTO*0 

itime.i 

buffer (21 }>NAMEND 


DEFAULT  VALUES  here 

BOARDT  *15 
DSTFAC*1 • 1 
ERRORS >50 
SCALE*  t 


00225000 
00226C00 
00227000 
00228000 
00229000 
00230C00 
0023 1  COO 
00231 <00 
00231200 
00231200 
00232C00 
00233000 
00234000 
00235C00 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 
00255000 
00256000 
00257000 
002S8C90 
CC259C00 
00260000 
00261000 
00262C00 
00263000 
09264000 
00265000 
002G6000 
00267000 
00268000 
00269C00 
00270000 
0027 1  COO 
00272000 
00272100 
00273000 
0027  1000 
00275000 
00276C00 
00277000 
00278000 
00279000 
00280000 
00281000 
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c 

c 

c 

c 


WAlKSP  *  1 .0 
ADD= 1 20 
DELETE*30 
ARVBUS  <  0 
DEPBUS  •  0 
START  •  0 
FINISH  »  0 
FROM  *  0 
TO  «  0 

WWGATE  a  0.0 
GRGATE  •  0.0 
GREET  »  0 . 0 
CURBCK  *0 . 0 
CIRCDK.0.0 
CR8GT  *0 . 0 
PRKCRB«0. 0 

LATEST  TIME  LEAVE  LOBBY  CONCESSION 
LEAVEL  *  15 

LATEST  TIME  LEAVE  CONCOURSE  CONCESSION 
LEAVEC  =  10 

SPREAD  OF  UNIFORM  DISTRIBUTION  BEFORE  ABOVE  TIMES 
LEAVEV  «  10 

117  READ(S,1002)1CARD 
NCARD* NCARD* 1 

IF(ICARD(1).NE.J0BTST)G010  in 
JOBTal 

WRITE! 6. 1004 ) NCARD, ICARD 
READIS . 1002) ICARD 
NCARD> NCARD* 1 
WRITE! 9,1002 ) ICARD 
111  WRITE! 6. 1004  INCARD. ICARD 

TYPTST  *  I ANO(  ICARD! 1  I , MASK1 ) 

IF(TYPTST.EQ.ASTRSK ) GOTO  117 
ICARO( 1 l-NAMEST 
ICARD! 2)»BLANK 
CALL  XCOUE (BUFFCR.BO) 

WRITE! 10, 1002)ICARD 
CALL  XC0UE!BUFFER,84) 

READ! 1 0 , ST ) 

IF(J0BT.E0.1 (GOTO  108 

CALL  MN L INK ( 1 , ICNH01 , ICNH02 , ICNH03 , ICNH04 , I CNH06 , ICNH07 . ICNH08, 

1  ICNH09, 

2  ICNL07 , 

3  ENDXF.TRVXH.BOTXH,  ABUXH, DBUXH, XFVXH, XFAXH , XFDXH , SC LXH.CLKXH, 

4  CUSQS , RC  RQS , DPCQS , EPCDS , CHKOS , SECOS , GAOS L , PAROS , IMMOS , T ICQS , 

5  RCARO.BAGCO. 0PLC0,CHEK2,CHEK3,CGTR0, ERROR, SECU0.CTRL0.CTRL1 , 

6  TRX9S,C0NXH,CHGXF,NSCXH,SLCXH,DPDPS,DP0CS,WwGXH,GRGXL,EPDPS, 

7  EPOCS,  GRTOO.GRTXL.CPKXH.CRBXH.CGTXL.PCBXL, 

e  jobls i 

CALL  CLINK2 
I SAVEH (XFAXH I  * A0D*60 
I SAVEH ( XFDXH )» DELETE*  60 
1 SAVEH ( SCLXH ) * SCALE 

OEFAULTS  FOR  ADDING,  DELETING  TRANSFER  FLT  FROM  XFRFLT:  2HRS. ,  30 

MH01 BaMHBASE ( IMAXH , 1 , ICNH01 ) 

MH02B-MHBASE ! IMAXH , 2 , ICNHC2 ) 

MH03B«MHBASE ( IMAXH , 3 , ICNH03 ) 

MH04B«MHBASE ( IMAXH , 4 , ICNH04 ) 


00282C00 
0C283C00 
00284000 
00285000 
00286000 
00287000 
00288000 
00289000 
00290000 
00291  COO 
00292000 
00292 1 00 
00292200 
00292200 
00292^00 
00292E00 
00293000 
00294000 
00295000 
00296000 
00297000 
00298000 
00299000 
0030CC00 
00301  COO 
00302000 
00303000 
00304000 
00305000 
00306000 
00307C00 
00308000 
00309000 
00310000 
00311000 
00312000 
003 1 3000 
0031 4000 
00315000 
0031 6000 
0031 7000 
0031 8000 
00319000 
00320000 
00321000 
00322000 
00323C00 
00324000 
00325000 
00326C00 
00327000 
00328000 
00329000 
00330C00 
00331000 
MI 00332C00 
00333000 
00334C00 
00335000 
00336000 
00337000 
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MH05B*MHBASE ( IMAXM.S. t ) 

MH06B=MI-,JASE  (  IMAXH  ,  6  ,  ICNHC6) 

MH07B*MHBASE ( IMAXH . 7 , ICNHC7 ) 

MHOOB=MHBASE ( IMAXH , 8 , ICNHC8 ) 

MH09B=>MHBASE  (  IMAXH,  9,  1CNHC9) 

MH1 1 B'MHBASE ( IMAXH, 1 1 , 1 ) 

MH1 2B*MHBASE ( IMAXH. 12.1 1 
MH1 BBsMHBASE ( IMAXH ,13,1 ) 

ML02B=MLBASE( IMAXL.2, ICNL02) 

GOTO  109 

108  CALI.  MNllNK(  1  ,  ICNH01 . 1CNH04 , ICNL02 .CLKXH ) 

CALL  CLINK2 

MH01 B=MHBA5E ( IMAXH, 1 , 1CNH01 ) 

MH04B-MHBASE ( IMAXH , 4 , ICNH04 ) 

ML028-MLBASE( IMAXL.2, I CNLC2) 

109  ISAVEH(CLKXH)=5TART 
N.iHR*3TART/100 
NSTMIN*MOD(START,100) 

NENDHR  *F1NISH/100 
NEMDMN *MOD( FINISH, 100) 

if;nenomn.ge.nstmin)goto  too 
nenokr«nenohr-i 

NENDMN  *  N t NQMN+60 

100  IF( UOBT . HE . 1 ) 1SAVEF IENDXF ) *60* (60* { NENDHR-NSTHR ) +NENDMN-NSTMI N )  - 1 
GOTO  101 

101  00  112  1*1,6 
US  DUMB (  I  )  *  ZAP 

TWOWAY  =BLANK 

READ! 5 , 1 002 , EWD*99 )  I CARD 

NCARO.NCARD+1 

lincct-unect+i 

IF1LINECf.LT. 51 )GOTO  107 

IIN£CT=1 

WHITE( 5,1005) 

107  WRlTE(6. 1004 )MCARO, ICARO 

IF1 J03T. EO. 1  ) WRITE! 9. 100  2  1 1 CARO 
TYF1ST  *  I ANO(  ICAPDl  I  ) .MAjKI  I 
I  F  l  T  TP  T$  f  .E0-ASTR3K  j  GOTO  101 

IFUCAROO (.EQ.IARRV.OR. 1CARD( 1 ) .EQ.IDEPT)GOTO  106 

IF( ICAROl 1 ). EO. IGRTRJGOTO  180 

IFUCARO(I).EO.ITISEP)  GO  TO  120 

I  F  <  ICAROl  1  )  .  EO.  1ARUN)G010  160 

IF(lCAR0lU.EQ.lPREU)G01C  IBB 

IF( ICARO( 1 ) . EO. IOVERIGOTO  170 

IF( ICAROl 1 ) . EO. IPARMJGOTO  t73 

IF(ICARD(1).E0.I BUS ) GOTO  186 

IF(  ICAROl  1  I.EO.ISTOR  KIOTO  190 

IF( ICAROl 1 ). EO. ITRANS)G010  195 

1 F ( ICAROl 1 J . EQ . IRUNT ) GOTO  200 

I F( ICAROl 1 ) . EO • ICHAN (GOTO  99 

00  102  1*1,20 

1F(FACTYP(I).E0.BLANK)G0T0  104 
IF( FACTYP ( I ) .EO. ICAROl 1 ) >GOTO  215 
102  CONTINUE 

ERROR  IN  FLIGHT  INPUT  DATA. 


00338000 
00339000 
00340000 
00341000 
00342000 
00342 '00 
00342200 
00342200 
00343000 
00344000 
00345000 
00346000 
00347000 
00348000 
00349000 
00350000 
00351  COO 
00352000 
00353000 
00354000 
00355000 
00356000 
00357C00 
00358000 
00359000 
00360000 
00361  COO 
00362000 
00363000 
00364000 
00365000 
00366C00 
00357C00 
OD36dCOO 
0C3S9C00 
00370000 
00371000 
00372000 
00373000 
00374000 
00375000 
00376000 
00377000 
0037710 0 
00378000 
0O379CO0 
00380000 
00331000 
00332C00 
00333000 
003B4000 
0C365C00 
00386000 
00387000 
00338C00 
00389000 
00390C00 
00391  COO 
00392C00 
00393000 
PO394C00 
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199  WRITE (6,1 000 ) 

CALL  ASSIGN! 1 ,1000, PH) 

NERRSW* 1 
GOTO  101 

ERROR  IN  GEOMETRY  INPUT  DATA. 

104  WRITE(6,1 003 )NCARD 
NERRSW1 

CALL  ASSIGN! 1 ,1000. PH) 

GOTO  101 

...F  LIGHT  SCHEDULE  INPUT 

106  CALL  X CODE  (BUFFER  ,  80  ) 

WRITE! 10, 1002I1CARD  ' 

BUFFER! 1 )«NAMEFL 
CALL  XC00E(BUFF£R,84) 

READ! 10, FL) 

NROW*NROW+1 

I F (GAT  E . E9 . 0 . OR , PAX . EQ . 0 • CR . TIME • EQ , 0 ) GOTO  199 
IF! ICARO! 1 ) , EO . I ARRV ) GOT  0  113 
IFfDEFLlN.EQ.O. AND -AIRLIN.EQ.O )GQTO  199 
IMAXBH ( MH1 ( NROW , 1 ) )«1 

113  1MAX3H(MH1 (NR0W.3) )>FLTNO 
IFIAIRLIN.EO  .ouirlin.oeflin 

1MAXBH(MH1 (NROW, 3) )«A1RL!N 
IMAXBH (MH1 (NR0W.4) (.TIME 
NFLTHR*TIME/100 
NFLTMN -MOO! TIME. 100) 

I F ! NFL  TMN - GE • NSTMIN  JGOTQ  103 
Nr LrHRxNFLTHR-t 
NT  LTMN  *NH  TMN+60 

103  IMAXBH(MH1  (NROW ,6) ) *60* ( NFLTHR-NSTHRJ-fNFLTMN-NSTMIN 
IF! INT.NE, 1 ) GOTO  105 
IMAXBH(MH1 (NROW. 7) )*3 
GOTO  1 15 

105  IF!  COM  - NE , 1 ) GOTO  110 
IMAXBH (MH1 (NROW, 7) J=2 
GOTO  1 15 

110  IMAXBH (MH1 (NROW, 7)  )*1 

115  IMAXBH (MH1 (NROW, 8) )*AC 
IMAXBH (MH1 ( NROW , 9 ) )*GATE 

IF(BAG.E0.0.AND.ICARD(1 ) . CO. I ARRV)BAG«DEFBAG 
IF( I  CARD! 1 ) .EO.l ARRV. AND. GAG. E9.0)GOTO  199 
IMAXBH(MH1 (NROW, 12) )<BAG 
PAX  »  PAX-TPAX( 1 )-TPAX(2)-TPAX(3) 

1 F ( SCA  LE .  EO.  1  IGOTO  114 
IMAXBH(MH) (NROW, 10) )*PAX/SCALE *0.51 
IMAXBH (MH1 (NROW, 1 1 ) )«TPAX( 1 )/SCALE+0.S1 
IMAXBH ( MH1 (NROW ,13))*TPAX(2) /SCALE+O .51 
IMAXBH (MH1 (NROW, 16) )  «TPA A ( 3 )/SCALE*0 . 51 
GOTO  101 

114  IMAXBH(MH1 (NROW.10) )«PAX 
IMAXBH (MM1 (NROW, 1 1 ) )«TPAX(  1  ) 

IMAXBH ( MH1 (NROW, 13) )>TPAX(2) 

IMAXBH (MH1 (NR0W.16) )>TPAX(3) 

GOTO  101 

...T  IME  SERIES  SPECIFICATIONS 


00395000 
00396000 
00397000 
00398000 
00399000 
00400000 
00401000 
00402000 
00403000 
00404000 
00405000 
00406000 
00407000 
00408000 
00409000 
00410000 
00411000 
00412000 
00413000 
00414000 
00415000 
00416000 
00417000 
0041 8000 
00419000 
00420000 
00421000 
00422000 
00423C00 
00424000 
00425000 
00426C00 
00427C00 
00428000 
00429000 
00430000 
0043 1  COO 
00432000 
00433C00 
00434000 
00435C00 
00436000 
00437000 
00438C00 
00439000 
00440C00 
00441000 
00442000 
00443000 
00444000 
00445000 
00446000 
00447C00 
00448000 
00449000 
00450000 
00451000 
00452000 
00452020 
00452040 
00452060 
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C  TIME  SERIES  ENTITY  SPEC  I F I  CATION  PLACES  NEMBERS 
C  OF  STORAGES,  QUEUES  ANO  HALF-WORDS  IN  GPSTO,  GPQUE 
C  AND  GPHALF  ARRAYS  FOR  TIME-SERIES  READOUTS. 

C 

120  ICARD( 1 )«NAMETS 
ICARO( 2 ) -BLANK 

I  CARD ( 3)- I  AND! I  CARD! 3) , MASK2 )  +  BLANK2 
CALL  XCODE ( BUFFER , BO ) 

WRITE( 10, 1C02)  ICARD 
CALL  XCODE ( BUFFER , 84 ) 

READ! 1 0. TS) 

GO  TO  101 


...AIRLINE  DATA  INPUT 

160  IF( JODT.EO. 1  1G0T0  101 
ICARD! 1 ) -NAMEAL 
ICARD! 2)*8LANH 
CALL  XCODE(BUFFER,BO) 

WRITE!  10.1002)  ICARD 
CALL  X CODE (BUFFER, 84) 

READ(IO.AL) 

00  163  1-1 .8 
J-LIN£S(I  ) 

I F  (  J . EO . 0 ) GOTO  101 
IMA  X8H(MH2( J , 1 ) ).EPCURB 
IMAXBH1MH2(U,2) )*EXPCHK*10 
IMAXBH(MH2(<J,3)  )«BUST0P 
163  C  O  N  T  I  N  U  E 
GOTO  101 

...G  ROUND  TRANSPORT  INPUT 

180  PVTCAR-0.0 
CRENT-0.0 
BUS--0. 0 

T  AX  1*0.0 
ICARD) 1 )-NAMEGT 
ICARD! 2 )*BLANK 
CALL  XCOUE ( 8UFFER , BO ) 

WRITF.!  10,1002)  ICARD 
CALL  XCODE ( BUFFER , 04 ) 

READ! 1 O.GT) 

PVTCAR*PVTCAR/100 . 

CHENT  *  CRENT/ 100. 

BUS-BUS/ 1 00 . 

TAXl-TAXl/100. 

IF( DOM . NE . 1 ) GOTO  101 
1-1 

GOTO  183 

181  I F 1  COM .NE.1 )GOTO  182 
1*2 

GOTO  103 
1B2  1-3 

183  IF( JOB T . EO . 1 ) GOTO  18* 

C  NORMAL  MODE  -  OEPL  PAX  LOGIC 

C  ML2I 1-3,2—)  A  CUM  PROS  DIST  WITH  PVT  CAR  ELIMINATED 
TEMPCT  «  1.0  -  PVTCAR 
FMAXBL(ML2(I.1)>  •  PVTCAR 
C 


0045L'C80 
00452*00 
00452120 
00452140 
00452*60 
00452*00 
00*152200 
00452240 
00452260 
00452280 
00452200 
00*152220 
00452240 
00453CC0 
00454000 
00455000 
00456000 
00457000 
00458000 
OC459000 
00460000 
00461  COO 
OC462COO 
00463000 
00464000 
00465000 
00466000 
00*57000 
00460000 
00469C00 
00470000 
00*71000 
00472000 
00*73000 
00474C00 
CD476C00 
00477000 
0C478C00 
00479000 
00460000 
00481  COO 
00482C00 
00483C00 
00484000 
00485000 
00487C00 
00483000 
00489000 
00490000 
0049 1  COO 
00492000 
00493C00 
0C494C00 
00495C00 
00496C00 
00497000 
00498000 
00499000 
00500000 
00501  COO 
00502000 
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TEMP2  *  CRENT/TEMPCT 
FMAXBL  (ML2( I .2) )=TEMP2 
TEMP 2  =  TEMP2+8US/TEMPCT 
FMAXBL  (ML2( I .3) )*TEMP2 
FMAXBL  (ML2( I ,4) )«1 .0 
GOTO  101 

C  USED  BY  SATELITE  PROGRAM  WHEN  CREATING  ENPL  PAX  JOBTAPE 

184  FMAXBL (ML2( I , 1 ) )*PVTCAR 
TEMP2=PVTCAR+CRENT 
FMAXBL (ML?( 1,2) )«T£MP2 
TEMP2=TEMP2+BUS 
FMAXBL ( ML2 ( I ,3) 1-TEMP2 
FMAXBL (ML2( I ,4) )«1 .0 
GOTO  101 

. ..%  PRE  TICKETED  PAX  INPUT 

188  ICARO( 1 )=NAMETI 
ICARD( 2)*8LANK 
ICARD( 3 ) *BLANK 
CALL  XCODE(BUFFER.80) 

WR1 TE (  10. 1002)1  CARD 
CALL  XCOUE! BUFFER, B4) 

REAO ( 1 O.TI ) 

I MAXBH ( MH4 ( 1 , 1 ) )=OOM*10 
I MA  X  BH ( MH4 ( 2 , 1 ) )«COM« 10 
I MAXBH ( MH4 (3, 1 ) )*INT»10 

I F ( OOMO I H .GT .0 .ANO.OOM.GT .0)  IMAXBH(MK4(1 , 2 ) ) =DOMDIR*1 0 
IFfCOMOIK.GT .0. AND. COM. G1 .0)  I MAXBH(MH4 ( 2 , 2 ) )-CQMDIR*1 0 
IF( INTOIR.GT .O.ANO. INT.GT .0)  IMAXBH(MH4( 3 . 2 ) ) « INTDIR*1  0 
COTO  101 

...WALKING  TIME/DIST  OVERRIDE  INPUT 

170  I F ( JOB T . EO. 1  ) GOTO  101 
ICARD( 1 ) *NAMEOV 
ICAR0(2I*PLANK 

CALL  X CODE ( BUFFER, 80) 

WRITE! 1C, 1002) ICARD 
CALL  XCOUE (BUFFER, 84) 

READ! 1 O.OV) 

IF(  TIME.GT.O )G0T0  171 
T IME*0 1 ST/WA  LKSP 

171  I MAXBH ( MH6( FROM, TO ) ) »TIME 
IMAXBH(MH6(T0,FR0M) )»TIME 
GOTO  1  0 1 

...P  ARM  CARDS  INPUT 

173  IF( JQBT .EO. 1 1G0T0  101 
ICARD! 1 )>NAMEPA 
CALL  XCOUE ( BUFFER, 80) 

WRITE! 10, 1002) ICARD 
CALL  XCOUE ( BUFFER , 84 ) 

READ! 1 0, PA ) 

GOTO  101 

...BUS  SCHEDULE  INPUT 

188  IF( JOB T . EO. 1 ) GOTO  101 
ICARD! 1 )«NAMEBU 


00503000 
0C504C00 
00505000 
00506000 
00507000 
00500000 
00509000 
00510000 
0051 1  COO 
00512000 
0051 3000 
00514000 
00517000 
00518000 
0051 9000 
00520000 
00521000 
00522000 
00523000 
00524000 
00525C00 
00526C00 
00527000 
00528C00 
00529000 
00530000 
00531000 
00532C00 
00533000 
00534000 
00535C00 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
0US42C00 
00543000 
00544000 
00545000 
00546000 
00547000 
00548000 
C0549C0C 
00550000 
00551000 
0C552C00 
00553000 
00554000 
0C555C00 
00556000 
00557C00 
OC558C0O 
00559C00 
00560000 
00561000 
00562000 
00563000 
00564000 
00565000 
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AIRPORT  LANDSIDE.  VOLUME  V.  APPENDIX  B.  ALSIM  SUBROUTINES. CU) 
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UNCLASSIFIED  DOT-TSC-FAA-82-4-5  Faa-EM-80-8-5  NL 


I  CARD ( 2 ) *BLANK 
CALL  XCODE ( BUFFER , 80 ) 

WR!TE( 10,1002) ICARD 
CALL  XCODE ( BUFFER , 84 ) 

READf 1 O.BU) 

I SAVEH ( ABUXH ) «60 . • ARVBUS 
1 SAVEH ( DBUXH ) «60 . •DEPBUS 
GOTO  101 

...GPSS  STORAGE  CAPACITY  INPUT 

190  I P( JOBT. tO. 1 )GOTO  101 
ICARD( 1 ) -NAMES 
ICARD( 2)«BLANK 

CALL  XCOU£(BUFFER,30) 

NRITE( 10,1002)1  card 
CALL  XCODEt BUFFER, 84) 

REAO( 10, S) 

DO  191  1*1,15 

IF(CAP(I) . EO . 0 ) GOTO  101 
IST0(11*(ST0d-2)f2)*CAP{I) 

191  CONTINUE 
GOTO  101 


C 

c. 

c 


...transfer  flight  overrides  input 

195  1F(U0BT.E0. 1 )GOTO  101 
ICARO( 1 )*NAMETR 
ICARD1 2)*BLANK 
CALL  XCODE ( BUFFER ,80 ) 

WRITE( 10,1002) 1CAR0 
CALL  XCOUE ( SUFFER , 84 ) 

RE.'Uf  1  O.TRl 

I F ( ADD .  GT .  0 )  I  SAVEH (  XFAXH  ) «A00* 60 
IF(DELETE.GT.0)ISAVEH(XF0XH)»0ELETE*60 

GOTO  101 


c 

c. 

c 


.RUNTITLE  CARD  INPUT 

200  IF( JOBT.tO.I )GOT0  101 
IFINTLINS.LT. S)GOTO  201 
NRtTE(6.1060) 

GOTO  101 

201  NTLINS-NTLINS+1 

CALL  XCOUE ( BUFFER , 80 ) 

WRITE ( 10, 1002 ) ICARD 
CALL  XCODE (BUFFER, 80) 

REA0(1  0,1081  MITITLE(I.NTLlNS)  .1-1,64) 
GOTO  101 


•GEOMETRY  INPUT 

215  t  F ( JOB  T . EO . 1  ) GOTO  101 

SET  J  .  ENTITY  RANGE  FOR  FAC 
U-FACOSXJ 1 )— 2 

nofac»i 

1CAR0( 1 )-NAMEGE 
TYPTST-IANO( ICARD(2) ,MASK1  ) 

IF(TYPTST.NE . BLANK 1 ) ICARD( 2 ) *BLANK 
CHECK  FOR  •IMMIGRATION"  &  "TICKET SB CHECKIN* 
IF<NOFAC.EO. 13.0R.N0FAC. E0.14) ICAR0(3) -BLANK 


TYPE  -1.  ISTO(N-I)  ACCOUNTS  F0» 


00566C00 
00567C00 
0C566C00 
00569C00 
00570000 
0057 1 OOC 
00572C00 
00573000 
00574000 
00575000 
00576000 
00577000 
C0573000 
00579000 
00580000 
0C58 1 000 
005E2000 
005B3000 
00584000 
00585000 
00586000 
00SB7C00 
00536000 
00589000 
OOS90COO 
00591000 
00592000 
00593000 
00594000 
00595000 
00596000 
00597000 
00598000 
00599000 
00600C00 
0C601C00 
00602000 
00603000 
00604000 
00605000 
0C606C00 
0C607C00 
00608000 
00609000 
00610000 
00611000 
00612000 
0061 3000 
00614000 
0061 5C00 
00616000 
00617000 
00618000 
2ND  0061 9000 
00620000 
00621  COO 
00622000 
00623000 
00624000 
00625000 
00626000 


on 


t  F ( NOF  AC . EQ .  14)ICAR0(4 ) a BLANK 

IF  (fJ0FAC.EQ.15)  ICAR0(3)  •  1  AND(  1CAR0(3)  , MASK2  )+BLANK2 
CALI  XCODE(BUFFER,80) 

WRITE( 10,1002) ICARD 
CALL  XC00E(BUFFER.S4) 

READ! 1 0,GE) 

I F(N£RRSW. EQ . 1 (GOTO  101 
C  ARGUMENTS  TO  FUNCTION  MH3  MUST  BE  1*4. 

I*POINT 

IF(POINTX.NE.O) IMAXBH(MH3( 1,1) ) *PQINT  X 
IF ( POINT Y.NE .0)IMAXBH(MH3(I ,2) )*POINTY 
IF(EXITPT.GT.O) IMAXBH ( MH3 ( 1,3) )*EXITPT 
IF(ENTRPT.GT.0)IMAXBH(MH3(I ,4) ) *ENTRPT 
C 

DO  22S  1*1.4 

I F (  F ACNO(  I  )  •  EQ. 0 ) GOTO  227 
NGE0*NGE0+1 

NFACSMf  NOF AC , 1 ) =NFACSM( NOFAC  ,  1  (♦I 
IMAXBH(MH9(NGE0, 1  )  )<NC1FAC 
IMA  X8H ( MH9 ( NGEO , 2 ) ) *F ACNO( I ) 

IMA  XBH( MH9( NGEO , 3 ) ) * POINT 
IF( POINT. GT.MAXPT )MAXPT*POlNT 
IF( S12E( I ) . EQ. 0 (GOTO  220 
K*  1  1 • ( J+F ACNO( I )  )+2 
ISTO(K)*S I2E( I ) 

220  IF  (NOFAC.NE.B)  GO  TO  221 
C  ENPLANING  CURB  SPECIAL  TREA 1  WENT 

ISTO(H)  *  S I 2T  r I ) /SCALE  FO . 5 

IF  (ISTO(K).EQ.O)  ISTO(K)  .  1 
K  •  11*(EP0PS+FACN0(I)-2)+2 
I STO(K )  *  DPARK(I)/SCALE*O.S 
IF  (ISTO(K).EO.O)  ISTO(K)  .  1 
K  »  1 1 • ( EPOCS+FACNO) I )-2)+2 
ISTO(K)  *  CURBQ( I t/SCALE+0.5 
IF  (ISTO(K).EQ.O)  ISTO(K)  *  1 
GO  TO  222 

221  IF  (NOF AC. NE  12)  GO  TO  222 
C  DEPLANING  CURB  SPECIAL  TREATMENT 

ISTO(K)  *  SIZE(I)/SCALE*0.5 

IF  (ISTO(K) .EQ.O)  ISTO(K)  .  1 
K  «  1 1*(0P0PS+FACN0(  I  )-2)+2 
ISTO(K)  *  DP ARK ( I ) /SCALE+O . 5 
IF  (ISTO(K) .EQ.O)  ISTO(K)  *  1 
K  *  1 1 •( DPQCS+FACNO( I )-2)+2 
ISTO(K)  »  CURBQ( I ) /SCAL E+0 , 5 
IF  (ISTO(K).EQ.O)  ISTO(K)  .  1 

222  00  223  M*  1 , 3 

I F ( I PARAM(M ) .EQ.O) GOTO  225 
L«M+3 

IMAXBH  (  MH9( NGEO ,  L )  )  *  1  PAR'AM(M) 

223  CONTINUE 
225  CONTINUE 

C  CHECK  FOR  SIDE  BY  S10E  ENTRANCE/EXIT 

227  IF(NOFAC.NE.6.AND.NOFAC.NE.7.0R.TWOWAY.EQ.NO)GOTO  101 
TWOWAY «NQ 
1*1 3-NOFAC 
GOTO  215 


99  1 F  (  NER  RSW .  EQ  •  1 )  GOTO  9  9  9  9  9 
C 


00627C00 

00626C00 

00629C00 

00630000 

00631000 

00632000 

00633000 

00634C00 

00635000 

00636000 

00637000 

00638000 

00639000 

00640000 

00641000 

00642000 

00643000 

00644000 

00645000 

00646000 

00647000 

00648000 

00649000 

00650000 

00651000 

00652000 

00653000 

00654000 

00655000 

00656000 

00657000 

00658000 

00659000 

00660000 

00661000 

00662000 

00663000 

00664000 

00665000 

00666000 

00667C00 

00668000 

00669000 

00670000 

00671000 

00672000 

00673000 

00674000 

00675C00 

00676C00 

00677C00 

00678C00 

00679000 

00630C00 

00681000 

006B2000 

00683000 

006B4000 

00685000 

00686000 

00687000 
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SORT  FLIGHT  SCHEDULE  ON  COL  6. 

K«NR0W-1 
00  230  d*1  ,  K 

NTEST*IMAXBH(MH1 ( J,6) ) 

IF(NT£ST.EO.O>flOTO  230 
00  22 9  I«J,NROW 

NTIME«1MAXBH(MH1(1 ,6)> 

I F( NTIME . EO. 0 , OR. NT IME.QE .NTEST )GOTQ  229 
NTEST-NTSME 
00  2 26  l.»  1  .  1CNH01 

I TEMPI x IMAXBH ( MH 1 (  J ,  L  ) ) 

IMAXBH(MHMJ.L)  )>IMAXBH(MHt(I,L)) 
1MAXBHIMH1 I  I , L ) ) *  I  TEMPI 

228  CONTINUE 

229  CONTINUE 

230  CONTINUE 

MARK  COL  1  FOR  PAST  LAST  FLIGHT. 

IMAXBH  (MH1  (NROtf+1  ,  1  ) )  — 1 
I F( JOBT . EO. 1 ) GOTO  299 

SORT  BY  FACILITY  NUMBER.  THEN  FACILITY  TYPE. 

NSWTC1 *0 
251  K*NGE0“1 

DO  260  d*1.K 

NTEST*2147A03647 
DO  256  I s  J , NGEO 

NSORTO( 1 )-lMAXBH(MM9(I,1 )) 

NSURTD I  2 ) » IMAXSH(MH9( 1.2)) 

IFINSQRT. GE. NTEST >GOTO  255 
NTEST.NS03T 
M INROW  ^ I 

255  C  0  N  T  1  N  U  E 

IF ( MINPOli - tQ . 0 ) GOTO  260 
DO  254  Mi  t  ,6 

I  TEMPI «KM9tMINRQW,M) 

ITEMP2*MH3< j.M; 

IT EMP3» IMAXBH ( I TEMPT ) 

IMAXBH ( l TEMPI )*IMAXBH(ITEMP2) 

IMAXBH ( I T  EMP2 ) » 1 TEMP3 
254  CONTINUE 
260  CONTINUE 
285  I  FI NSWTC1 . EO . 1 )G0T0  290 
I  TEMPI *0 
00  280  !«1  .20 

1F(FALTYP(I).EQ.  [HANK  )  GOTO  295 
IF(NFACSM( I , 1 ) .CO.OJGOTO  280 
1TEMP1«ITEMP1+NFACSM( 1,1) 

I F ( IMAXBH ( MH9( I T EMP1 , 2 ) ) . EQ . NFaCSM( 1 , 1 ) ) GOTO  280 
NSW TCI »1 

ITEMP2»ITEMP1-NFACSM( I,l)+1 
ITEMP3«0 

DO  270  U« ITEMP2, I  TEMPI 
268  I  TEMPS  *  I  TEMP 3* 1 

C  CHECK  FOR  DOUBLY  DEFINED  FACILITY 

I  F(  IMAXBH ( MH9 ( J, 2)). IT. JTEMP3) GOTO  2S9 
I F( IMAXBH(MH9 ( J , 2 ) ) . EQ . I TEMP3 )GQTQ  270 
C  SUILO  OUMMY  FACILITIES 


00688CC0 
006B9C00 
00690C00 
00691  COO 
00692C00 
O0693C00 
00694C00 
00695COO 
00696CO0 
00697C00 
00698C00 
00699000 
00700COO 
00701  COO 
00702CO0 
00703000 
00704000 
00705C00 
00706000 
00707000 
00708000 
00709COO 
0071 OCOO 
0071 1  POO 
00712000 
0071 3C00 
00714C00 
0071 5C00 
00716000 
0071 7C00 
0C71BC00 
00719P00 
00720C00 
007  2 1  COO 
00722C00 
00723000 
00724000 
00725000 
O072GCOO 
O0727C00 
O0728COO 
00729C0O 
00730000 
00731  COO 
00732C00 
00733C00 
C07C4C00 
OC*  *^000 
00 
■  n 

J.  .  v  : 

00753'  0 
00740000 
00741  COO 
00742C00 
00743000 
00744C00 
00745000 
00746000 
00747000 
00748000 
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c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


269 


270 

280 

295 


NGE0*NGE0+1 

IMAX9H ( MH9( NGEO , 1 )  )*I 

IMAXBH (MH91NGE0, 2 ) )«2TEMP3 

NFACSM(I.1)«NFACSM(I,1)+1 

GOTO  268 

K*  I MAX8H( MH9( J , 2 ) ) 

WRITE(6, 1031 JNAMER8, I 
CALL  ASSIGN! 1 , 1000, PH) 

GOTO  99999 
CONTINUE 
C  0  N  T  I  N  U  E 
I F( NSW  TCI .  EQ .  1 )GOTO  2S1 


00749000 

0075or00 

00751000 

00752000 

00753000 

00754000 

00755000 

00756000 

00757000 

00750C00 

00759000 

00760000 


INOEXF(»)  ( NFACSM( • , 2 )  +  NO  OF  FAC  IN  THAT  TYPE  POINTS  TO  FAC  IN  FAC00762000 


290  NFACSM (1 ,  2  )  *  0 

IMAXBH (MH8(1 , 1 ) )«NFACSM< 1,1) 

DO  296  1*2,20 
J.I-1 

NFA  ~SM( 1 , 2 ) *NFACSM( J , 1 )+NFACSM( J,2) 

IMAXBH(MH8(I,1 ) )=NFACSM(I ,1 ) 

IMAXBHfMHB! 1,2) )*NFACSM( 1,2) 

296  CONTINUE 

POINT-TO-POINT  WALKING  TIME  CALCULATION 

WRITE! 6, 1 024  ) 

DO  293  1*1 , MAX  PT 

XI  * IMAXBH ( MH3( 1 ,  1  ) ) 

Y1 * IMAX3H ( MH3( 1,2)) 

IF(X1.FQ.0.0.AN0.Y1 . EO .0 .0 ) WRITE(6 , 1 025 ) I 
TEST  FOR  POINTX,  POINTY  BOTH  0  — >  PROBABLY  NOT  DEFINED. 
00  292  l«I.MAXPT 

I F ( 1 .EQ. JJGOTO  292 
K*MH6(  I  ,  v> ) 

IF(ImaxBH(k).GT.0)GOTO  292 
X2*IMAXBH(MH3(u,i ) ) 

Y2* IMA  XSH! MH3 ( J , 2 ) ) 

I  TEMPI *S0RT( !X1-X2)**2+{ Y1-Ya)«*2)*DSTFAC/WALKSP 
IMAXBH! K)*ITEMP1 
IMAX3H(MhG(J, I) )*I1EMP1 

292  CONTINUE 

293  CONTINUE 

DETERMINE  CLOSEST  EXIT  «  ENTRANCE  TO  EACH  POINT. 

I*IN0EXF(7) 

vUI+NOEXIT 

NCOL-3 

294  I-U1 

DO  298  K*1 .MAXPT 

IF( IMAXBH ( MH3( K , NCOL ) ) . NE.O )GOTO  298 
ITEMPl *9999 
00  297  L*I.U 

l TEMP4  * IMAXBH (MH9! L ,3) ) 

ITEMP2*IMAX8H(MH6< 1 TEMP4 , K) ) 

IFUTEMP2-GE.  ITEMPl  )GOTO  297 
1TEMF1-ITEMP2 
ITEMP3* 1TEMP4 
297  CONTINUE 

IMAXBH(MH3(K,NC0L))»ITEMP3 


00763000 

00764CC0 

00765C00 

00766000 

00767C00 

00768C00 

00769000 

00770C00 

00771000 

00772000 

00773000 

00774000 

00775C00 

00776000 

00777000 

00778C00 

00779C00 

00780C00 

00781000 

00732000 

00783C00 

007B4C00 

00785C00 

007B6C00 

00787C00 

00788000 

00789000 

00790000 

00791000 

00792C00 

00793000 

00794000 

00795000 

00796000 

00797000 

00798000 

00799000 

00800000 

00801000 

00802000 

00603000 

00804000 

00805000 

00806000 

00807000 

00808000 

00809000 
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298  C  0  N  T  I  N  U  E  00810000 

I F ( NCOL • EO. 4 ) GOTO  291  008110C0 

NC0l»4  0C812C00 

I  =  1  NDE  XF ( 6)  00813C90 

J*I+NOENTR  0081 4000 

GOTO  294  00815000 


0081CC00 

CHECK  FOB  UNDEFINED  FACILITIES  -  NOT  NECESSARILY  AN  ERROR  CONDITION. 0081 7COO 


C 

C 

c 

c 

c 

c 


291  NSwTci *0 

DO  285  1*1,20 

I F( FACTYP ( I ) . EO. BLANK  1  GOTO  286 
I F \ NFaCSM ( I , 1 ) . GT . 0 JGOTO  285 
NSWTC1«1 

285  CON  r  I  N  U  E 
288  1 F( NSWTCI . EQ . 0 ) GOTO  289 
MR1TET  3, 1020 ) 

DO  287  1*1 ,20 

IF(FACTYP(I).EQ. BLANK )GQT0  288 
I F ( NFACSM (I.I).QT.O) GOTO  267 
1F( I . NE . 1 4  JGOTO  283 
M8I TE(6, 1 026) 

GOTO  287 

283  IF( I .NE. 1 3)GOTO  284 
MRtTE(6.l030) 

GOTO  287 

284  MR I TE( 6 , 1 021 )NAMER8( I ) 

287  C  0  N  T  I  N  U  E 

288  MRIT* ( 6, 1022 ) 

289  CONTINUE 

PARAMETER  INPUT  VALUES  PLACED  IN  SPSS  PROGRAM 

ISAVEH ( BUTXH 1 *60*B0APDT 
LEAVEL  *  60* LEAVE L 
LEA VEC  «  60*  L  EAVEC 
LEAVF.V  »  60*  LEAVEV 
ISAVEH(WMOXH)  *  10.*  WWGA 1 E+0 . 5 
FSAVEL(GNGXL)  »  GRGA T E/1  00 . 

FSAVEL ( CGTXL ) *CRSGT/1 00 . 

FSAVEL ( PCBXL ) *PHKCRB/1 CO . 

FSAYEL(GRTXL)  *  GRFET/100. 

ISAVEH ( CPKXH )  ■  1 0 . *C I RCPK+C . 5 
I SAVEH ( CKBXH )  *  1 0 . • CUR0CK+O . 5 


MESSAGE  -END  OF  INPUT  DATA 

299  MRITE( 8, 1008 ) 

GOTO  9  9  9  9  9 


2  CONTINUE 

...9  AGGAGE  UNLOAD  ROUTINE 

SCANS  MH7,  BUILT  BY  SUCCESSIVE  CALLS  TO  'BAGS''  BY  PAX  XACS. 
SUCCESSIVE  PB'S  MITH  NUMBER  TO  BE  COMPARED  WITH  MAX  RANDOM 
NUMBER  OF  PASSENGERS  ON  FLIGHT  USER  CHAIN.  ROUTINE  MILL  LOOP 


00818000 
00819000 
0C82OCOO 
0C821P00 
00822CO 0 
006230C0 
00824000 
00825000 
00626COO 
00827000 
00828000 
00829000 
00830000 
0083.000 
00632C00 
C0833C00 
00634000 
00835000 
00836000 
00837000 
00838C00 
00839000 
00840000 
00340*00 
00841  COO 
00842000 
00843000 
00844000 
00845000 
00846000 
00847C00 
00847*00 
00847000 
00848000 
00849000 
00849010 
OOP5OC0O 
0085 1000 
00852000 
00853000 
0C854C00 
00855C00 
00856000 
00857000 
00C5BP00 
00859C00 
00860000 
008S1000 

ooec2coo 

00863000 
LOAOS  00864000 
00865C00 
00866000 


o  u  uuuuuu  u  uuuuuuu 


C  THROUGH  LOGIC  CONTAINING  A  TIME  DELAY,  UNLINKING  ALL  PASSENGERS 
C  KITH  MAX  RANDOM  NUMBERS  LE  SUCCESSIVE  PB.  VALUES. 

C 

C  MH7(2, 1 ) «MH7(2 • 1 )*MH7( 1,1) 

C  MH7I3, 1 ) «MH7 (3.1 )+MH7(2, 1  ) 

C  ETC. 

C 

MAXBAG • I V  A  LU  E ( 2 ) 

NTEST.M*  XBAG 
NOPB*40 
NENDCK  »0 
I  TEMPI .MH07B+1 
00  305  Ixl .63 

lTEMP1aITEMP1+1 
I TEMP2» I T  EMP1  +  1 
NOB AGS* 1MAXBH( I  TEMPI  ) 

IMAXBH! ITEMP* )»0 
I F ( NENDCK . EO . 0 . ) NENDCK. NOBAGS 
IMAXBH!  I T  EMP2 )  ■  1 MAXBH  (  I  TEMP  2 )  4-NOB  AGS 
I F ( I MAXBH ( I TEMP2 ) . LT , NTEST ) GOTO  305 
CALL  ASSIGN!  N0PB.I+1.PB  ) 

NENDCK. 0 

IF  (N0PB.EQ.1)  GO  TO  306 

NOPB.NOPB-1 

NTEST. NTEST+MAXBAG 

305  CONTINUE 
IMAXBH ( ITEMP2 ) .0 

I F( NENDCK. EO . 0 ) GOTO  99999 

306  CALL  ASSIGN! NOPB, 64 , PB) 

GOTO  99999 


3  CONTINUE 
...B  ACCLAIM 

I  VALUE ( 2 )  ■  CURRENT  LOCATION 
IVALUE!3)  a  PHI  (MH1  ROW  NO) 

NPTFM«IVALUE<2) 

I V3*I VALUE(3 ) 

U* INDEXF(4 )♦ IMAXBH! MH1 (IV3,13) ) 

NPTTO. IMAXBH ( MH9 ( J , 3 ) ) 

ASSIGN  309  TO  NEXT 
GOTO  950 

309  CALL  ASSIGN!  2, NPTTO, PH,  11,4,PB,  7,d,PH  ) 
GOTO  99999 

4  CONTINUE 


...C  U  S  T  0  M  S 


00867000 
00868000 
00869000 
00870000 
00871000 
00872000 
00873000 
00874000 
00875000 
00876000 
00877000 
00878000 
00879000 
00880000 
00681000 
00682000 
00883000 
00884000 
00885000 
00886000 
00887000 
00888000 
00889000 
00890000 
00891000 
00892000 
00893000 
00894000 
00895C00 
00896000 
00897000 
00898000 
00899000 
00900000 
00901000 
00902C00 
00903000 
00904000 
00905000 
009C6C00 
00907000 
C0908000 
00909000 
0091 0000 
0091 1C00 
0C912C00 
00913000 
00914000 
0091 5000 
OC916COO 
00917000 
0091 8000 
00919000 


1VALUE!2)  a  CURRENT  LOCATION  00920000 

I  VALUE ( 3 )  a  KH9  ROW  NO  OF  APPROPRIATE  IMMIGRATION  FAC00921000 

00922C00 


NPTFM.IVALUE(2)  00923000 

I V3» I V  ALUE ( 3  )  00924000 

C  CUSTOMS  AREA  ASSOCIATED  WITH  IMMIGRATION  AREA  PAX  AT  00925000 

LaIMAXBH!MHB ( I V3,4) )  00926000 

JaINDEXF(S)+L  00927000 
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c 


c 


c 

c 


c 


NPTTO* IMAXBH ( MH9 ( J , 3 ) ) 

ASSIGN  313  TO  NEXT 
GOTO  950 

DETERMINE  CUSTOMS  OUEUE  AND  STORAGE  NUMBER 
313  M«CUSQS+L-1 

CALL  ASSIGNS  2.NPTTO.PH,  5.M.PH,  ?,J,PH,  11.5.PB  ) 
GOTO  99999 


5  C 

..GROUND 


00928000 
00929000 
00930C00 
00931  COO 
00932000 
00933000 
00934000 
00935000 
00936000 
00937000 
00933000 
00939000 
00940000 
00941000 

I  VALUE ( 2 )  ■  PAX  BEING  MET  (DEPL  PAX!  DECR  TO  0  BY  ROU00942000 

>  RANDOM  NO  FOR  TJCKETED/NOT  SELECTION  FOR  000943000 

I VALUE  I  3)  ■  RANDOM  NO  FOR  MOOE  SELECTION  00944000 

1  VALUE ( 4 )  ■  PLT  TYPE  (1,2,3  ■  D0f4.COM,  INT)  00945C00 


0  N  T  I 
TRANSPORT 


N  U 
MOOE 


I V2» 1 VALUE ( 2  ) 

I V4* I  VALUE ( 4 ) 

1 F( JOBT . EO. 1 ) GOTO  702 
K  «  2 
L  »  0 
GO  TO  701 

PAX  NOT  BEING  MET;  RANDOM  MODE  SELECTION 
702  K« 1 
L-0 

DECISION  ON  TICKETCO/NOT  TICKETED 
IF( IMAXBH(MH4( IV4, 1 ) ) .LT.IV2)L»1 
701  TEMPCT.J IVALUE(3)+1 . J/1000. 

DO  705  J-K, 10 

l F  (  T EMPCT  .GT  .  FMAXBHML2I IV4 , 0)  )  )GOTO  705 
ADO  (+1)  TO  J  BECAUSE  PVT . CAR  PASS.  GROUPS  USE  PB6>1  AND  P66-2 
J»J+1 

CALL  ASSIGN)  6.J.PS,  9.L.PB  ) 

GOTO  99999 
70S  C  O  N  T  1  N  U  E 
NERCNT  «NERCNT+1 
I P( NERCN f . EO • ERRORS ) GOTO  999 
MR I TE( 6. 1 007  ) 

CALL  ASSIGN)  6,4, PB,  9.L.P0  ) 

GOTO  9  9  9  9  9 


«  CONTINUE 

...R  E  N  T  A  C  A  R 

I  VALUE ( 2 )  ■  CURRENT  LOCATION  -  PH2 
I  VALUE ( 3 )  ■  CAR  RENTAL  AGENCY  CODE  -  PB10 

NPTFM« I VALUE ( 2 ) 

1 V3»I VALUE ( 3 ) 

ITEMP1  ■  OIST  TO  CLOSEST  COUNTER  OF  AGENCY, 

MINPTO  ■  CLOSEST  COUNTER'S  POINT  NUMBER. 

I  * INOEXF) 11) 

J»I+NORENT 

I»IA1 

SCAN  AGENCY  COUNTERS  TO  FIND  NEAREST  ONE  OF  CORRECT  AGENCY 
I  TEMPI >99999 


00946000 
00947000 
00948C00 
00949000 
00950C00 
00951000 
00952000 
00953000 
00954000 
00955000 
0095CC00 
00957C00 
00958000 
00959000 
00960000 
00960100 
00980000 
00961000 
00962000 
00983000 
00964000 
00965C00 
00966000 
00967000 
00968000 
00969000 
00970000 
00971000 
00972000 
00973000 
00974000 
00975000 
00976000 
00977C00 
00978C00 
00979C00 
OC9SOCOO 
0098 1  COO 
00982C00 
00983000 
009B4C00 
00985000 
00986000 
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C 


320 


322 


MINPTQ*0 
LTEMPaO 
DO  320  N>I,J 

LTEMP*LTEMP+1 

branch  if  different  agency 

Hi rnA?BH ( MH9< N • 4 ) ) • NE . I V3 ) GOTO  320 
NPTTO* IMA  XBH(MH9 1 N , 3 ) ) 

noi«^wP?eIMAXBH(MH6(NPTfM>NPTT0)) 

branch  if  not  closest  counter. 

I f ( I TEMP2 . GE . I  TEMPI )GOTO  320 
I  TEMPI  *  I T  EMP2 
MINPTO«NPTTO 
ITEMP3-N 
t*LTEMP 

CONTINUE 
IF(MINPTO.GT.O)GOTO  324 
FOLLOWING  TO  STATEMENT  324  EXECUTED  FOR  UNDEFINED  RENTACAR 

DO  322  N« I . J 
L«L  +  1 

K* IMAX0H( MH9( N , 4 ) ) 

IF(K.GT.O)GOTO  323 
CONTINUE 
I F( NRCRSW. EQ . 1 JGOTO  99990 
NRcRSWsl  * 

WRI TE( 6 , 1 019 ( 


GOTO  99999 

323  NPTTO*  IMAXBH  ( MH9(  N  3)1 
ITEMP3sN 

WRITE ( 6,101B)IV3,K 
NERCNT  «NERCNT+i 

{^rcnt*E0.ERR0RS)G0T0  999 

MINPTO  .  NPTTO 
GOTO  325 

324  NPTTO.MINPTO 

325  ASSIGN  329  TO  NEXT 
GOTO  950 

326  MsRCRQS+L-1 

AaS10N(  2.MINPT0.PH. 
GOTO  99999 


5.M.PH,  7.ITEMP3.PN,  11.11.PB 


7 

■  1*1  T 


I VALUE ( 2 ) 
*  VALUE ( 3 ) 
I  VALUE (4) 
1  VALUE (5) 


CURRENT  LOCATION  -  PH2 

CURRENT  PROCESS  -  PBH 

NEXT  ADDRESS  -  FN»PB1 

MM9  ROW  OF  LAST  FACILITY  -  PH7 


NPTFMs I  VALUE ( 2 ) 

I V3*I VALUE ( 3 ) 

I V4sJ y  ALUE ( 4 ) 

IV5«I VALUEI5 ) 

SCAN  VALID  FACILITY  TYPES  TO  EXIT  TO 

I  * PV Al ( PB ! ? ) LC° ' ' 1 V4 ' 69 • CfiTR 0  * 0R • 1 V4 • W • GR T«°  > GOTO  510 
WRITE (6, 100$)  I  VALUE (4), I 
NERCNT sNERCNT+1 


009G7000 

00988000 

00989000 

00990000 

00991 eoo 

00992000 
00993000 
00994000 
00995000 
00996000 
00997000 
00998000 
00999C00 
01000000 
01 00 1000 
01002000 
FACILITY. 01003000 
01004000 
01005000 
01006000 
01007000 
01008000 
01009000 
01010000 
0101 1000 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01 030000 
01031  COO 
01 032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
0 1 039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01045000 
01046000 
01047000 
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IFfNERCNT.EQ. ERRORS) GOTO  999 
GOTO  99999 

C  EXIT  TO  DEPLANING  CURB.  CHECK  FOR  FACILITY  LEAVING  FROM. 

510  IF( 1V3.EG. 1 (GOTO  520 

C  MM  CAN  LEAVE  FROM  SECURITY 
IF  (IV3.E0.3)  GO  TO  535 
1 F{ I V3 . EQ. 4) GOTO  515 
I F( I V3 . £0. 5 ) GOTO  525 
I  F(  I V3  .  E<3. 1 1  (GOTO  530 
MR  I TE ( 6 , 1 009  )  FACT YP ( 1 V3 ) 

GOTO  99999 

C  NOTE:  COMMONALITY  IN  FOLLOWING  CODE  BLOCKS  TO  PERMIT  TAILORING  FOR 

C  A  SPECIFIC  INSTALLATION. 

C  BAG  CLAIM  -  DEPLANING  CURB 

515  d*IMAX8H(MH9( 1V5.3) ) 

NPT TO* IMAXBH < MH3( J , 3 ) ) 

ASSIGN  516  TO  NEXT 
GOTO  950 

516  CALL  ASS1GN(  2 .NPT TO , PH  ) 

GOTO  99999 

C  GATE  -  DEPLANING  CURB 

520  d*lMAXBH!MH9( 1V5.3) ) 

NPT  TO* 1 MAX  BH ( MH3 (  d  .  3  )  ) 

ASSIGN  521  TO  NEXT 
GOTO  950 

521  CALL  ASSIGN!  2.NPTT0.PH  ) 

GOTO  99999 

C  CUSTOMS  -  DEPLANING  CURB 

525  d= "MAX BH(MH9 ( IV5.3)  I 
NPT  TO  is  IMAXBH  (  MH3  ( J  .  3 )  ) 

ASSIGN  526  TO  NEXT 
GOTO  950 

526  CALL  ASSIGN!  2. NPTTO, PH  ) 

GOTO  99999 

C  CAR  RENTAL  -  DEPLANING  CURB 

530  d* IMAX  BH( MH9 ( I V5 , 3 ) ) 

NPT  TO* IMAXBH I MH3( d . 3 ) ) 

ASSIGN  531  TO  NEXT 
GOTO  950 

531  CALL  ASSIGN!  ?,NPTTO,PH  ) 

GOTO  9  9  9  9  9 

C  SECURITY  -  DEPLANING  CURB 

535  d  •  IMAXBH! MH9( I V5 , 3 ) ) 

NPTTO  «  IMAX 8H(MH3( J . 3 ) ) 

ASSIGN  536  TO  NEXT 

GO  TO  950 

536  CALL  ASSIGN  (2, NPTTO, PH) 

GO  TO  9  9  9  9  9 


8  CONTINUE 

...I  MMIGHATION 

I  VALUE! 2)  ■  CURRENT  LOCATION  -  PH2 
I  VALUE ( 3 )  ■  GATE  NUMBER  -  MH1(PH1,9) 

NPTFM. IVALUE(2) 

I V3*I VALUE ( 3 ) 

L* IMAXBH! MH9 ( I V3, 5) ) 

C  TEST  FOR  GATE'S  DESIGNATED  IMMIGRATION  FACILITY 


01 048000 
0 1 049CO0 
01050C00 
01 051  COO 
0 1 052C0O 
01053C00 
01054000 
O1055CO0 
01O56C00 
0 1 057C00 
01058C00 
0 1 05QC00 
0 1 060000 
01 061  COO 
0 1 062C00 
0 1 063C00 
OI064COO 
01065000 
01066000 
01067C00 
01068000 
0 1 069000 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
0 1075000 
01077000 
01C76C00 
0 l 079C00 
oioeocoo 
01081000 
01082000 
0 1 0S3C00 
01084000 
0108500C 
0 1086C00 
0  I 087C00 
01088C00 
01089000 
01090000 
01091000 
01092000 
0 1 093000 
01C94000 
01095000 
0 ’096000 
01097000 
01090000 
0 1 099C00 
01 100C00 
01101000 
01102000 
01103000 
01104000 
01105000 
01106000 
01107000 
01108000 
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FIND  ANY  IMMIGRATION  AREA 


1 F  (  L .  GT . 0 ) GO TO  33S 
I F  ( NO I  MM 1 .GT . 0 ) GOTO  331 
WRITE) 6,1010) 

NERCNT  *NERCNT+1 
IF (NFRCNT.EQ. ERRORS) GOTO  999 
GOTO  9  9  9  9  9 

C  NO  IMMIGRATION  AREA  SPECIFIED  FOR  GATE. 

331  d* INDE  XF( 13) 

K*  J+NO  IMMI 
d«d+1 

DO  332  N*d,K 
L*L  +  1 

IF( IMAXBH(MH9(N.3)).GT .0)GOT0  334 

333  CONTINUE 

334  WR1TE(6,1011 )IV3,L 
NERCNT  *NERCNT-H 

1 F( NERCNT . EQ . ERRORS (GOTO  999 

335  d*IND£XF(13)4-L 
NPTTO* IMAX8H ( MH9( J , 3 ) ) 

ASSIGN  336  TO  NEXT 
GOTO  950 

33B  m*immqs+l-i 

CAUL  ASSIGN)  2.NPTT0.PH.  5.M.PH.  7,d,PH,  11.13.PB,  B.d.PH  ) 
GOTO  99999 


...D  EPLANING  CURB  (PAX) 

I  VALUE (2)  •  CURRENT  LOCATION  -  PH2 

IVALUEO)  •  LAST  FACILITY  TYPE  (OTHER  THAN  EXIT)  -  PB1 
I  VALUE ( A )  .  LAST  MH9  RON  (OTHER  THAN  EXIT)  -  PH7 
I VALUE( 5)  ■  MH1  ROW  -  PHI 

NPTFM* I VALUE ( 2 ) 

1 V3« I  VALUE ( 3 ) 

I V5*IVALUE (5 ) 

1  «  1MAXBH( MH1 ( I V5 . 3) ) 

C  SCAN  FOR  VALID  FACILITY  TYPES  COMING  FROM 
IF( IV3 .EO. 1 ) GOTO  600 
I F( I V3 . EO. 4 ) GOTO  60S 
IF(IV3.E0.5)G0TO  610 
IF< IV3.E0.11 1G0T0  615 
IF  (IV3-E0.14)  GO  TO  620 
I*PVAL(PB,1 ) 

WRITE (6.1012) FACTYP( I V3 ) , I 
NERCNT  .NERCNT-H 
IF( NERCNT. EO- ERRORS (GOTO  999 
GOTO  99999 

C  COMING  DIRECTLY  from  GATE  -  FIND  ASSIGNED  BAG  CLAIM  AREA  FOR  FLIGHT 
600  1 *  IMAX  BH(MH1 ( IV5, 12) )  +  INDEXF(4) 

I  TEMPI «IMAXBH(MH9(I .4)) 

GOTO  690 

C  COMING  FROM  SAG  CLAIM 
BOS  I  *  I VALUE( 4) 

I  TEMP 1 ■ IMA XBH ( MH9 ( 1 , 4 ) ) 

GOTO  690 

C  COMING  FROM  CUSTOMS 
610  I«IVALUE(4) 

I TEMPI «IMAXBH(MH9( 1.4)) 


01 109C00 
01 1 10C00 
01111000 
011  12000 
01113000 
01114000 
01 115000 
Oil 16C00 
01117000 
01 1 1B000 
01 119000 
01120000 
01 121C00 
01122000 
01123000 
01124000 
01125000 
01126000 
01127000 
01128000 
01129000 
01130000 
01131000 
01132000 
OU33COO 
01134000 
01135000 
01136000 
01 I37C00 
01138000 
01139C00 
01 140C00 
01 141  COO 
01142000 
01 143000 
01144000 
01 145C00 
01146000 
01147000 
01 148C0C 
01 149000 
01 15CC00 
01151000 
01 152000 
01153000 
01154000 
01155000 
01156000 
01157000 
01158000 
Oil 59C00 
01 160000 
01161000 
0 1 1 62000 
01163000 
01 164000 
01165000 
01166000 
01167000 
01168000 
01169C00 
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c 


c 


c 


c 


c 


c 


c 


c 


GOTO  630 

COMING  FROM  RENTACAR 
615  I  *  I VALUE) 4 ) 

ITEMP1  =IMAX0H(MH9( 1 .5) ) 

GOTO  690 

COMING  FROM  CHECKIN--OE PLANING  LOBBY  PAX  TO  ENPLANING  CURB 
620  I  «  IM AX8H ( MH 1 ( I V 5 , 3 ) ) 

I  -  IMAXBH(MH2( I ,1)1 
d  *  1+ IND2XF ( 8 ) 

GO  TO  692 

DETERMINE  UELPANING  CURS  area 

690  d*  I  TEMPI ♦INDEX F( 12) 

692  NPTTO* IMAXBH(MH9( J , 3) ) 

ASSIGN  691  TO  NEXT 
GOTO  950 

691  CALL  ASSIGN(  2, NPTTO, PH,  7,J,PH,  11.12.PB  ) 

GOTO  99999 


10  CONTINUE 

...0  EPLANING  CURB  (CARS  6  GREETERS) 


01 170000 
01 171C00 
01172000 
01173000 
01 174000 
01 175000 
01176000 
01177000 
01 17UOOO 
01179000 

oi leocoo 
01 181C00 
01182000 
01 183C00 
01 164000 
Oil 65C00 
01186000 
0 1 i 87000 
01188000 
01189000 
01190000 
01191000 


I  VALUE ( 2 )  «  AIRLINE 
I VALUE ( 3 )  «  MH1  ROW  -  PHI 

I  VALUE! 4)  ■  NUMBER  OF  BAGS  (INDICATES  DEPL 
I  VALUE ( 0 )  ■  1  IF  GREETER  (RECIRCULATED  AND 

I V2« I VALUE ( 2 ) 
l V3» I V ALUc ( 3 ) 

IV4  *  IVALUE14) 

IF  (IV4.NE.0)  GO  TO  700 

USING  ENPLANING  CURB 

M  «  IMAXBH1MH21 TV2, 1 ) ) 

IF  (  IVAl.UE(5) -EO.  1  )  GO  TO  716 
CURB  SEARCH  SCHEME  FOR  OPEN  CURB  OR  DP  SLOTS 
00  713  K»1 . 10 

L  »  lEPSCH(K.M) 

IGNORE  FACILITY  NUMBERS  >  NOENPL 
IF  (L-GT. NOENPL)  GO  TO  713 
ITEMPi  i  INDEXF! 8 )*L 

test  FOn  dummy  facility 

IF  ( IMAXBH! MH9( I  TEMPI , 3 ) ) . EO . 0)  GO  TO  713 
d  *  EPCBS+L-1 
ITEMP3  «  1 1 • (d— 1  )+2 
IF  ( I STO( 1 TEMP3 ) • EO , 0 )  GO  TO  714 
CAR  GETS  CURB  SLOT 

CALL  ASSIGN! 6 , d , PH ,  10.1.PB) 

GO  TO  9  9  9  9  9 
714  d  •  EPQPS*L-1 

ITEMP3  «  1 1«(d-1 )*2 
IF  ( I STO( I TEMP3 ) . EQ . 0 )  GO  TO  713 
CAR  GETS  OP  SLOT 

CALL  ASSI GN(6,d, PH,  10.2.PB) 

GO  TO  9  9  9  9  9 
713  CONTINUE 
L  ■  M 

d  •  EPOCS+L- 1 
I TEMPS  •  1 1 • ( d~1 )*2 


01 192C00 
01 193C00 
01 l 94CC0 
OR  ENPL  CB) 01 195000 
PARKED)  01196000 
01197000 
01198000 
01199C0O 
01200000 
01201000 
C 1 202000 
01S03C0O 
01204000 
01205000 
01206000 
01207000 
01208000 
01209000 
01210000 
01211000 
01212C00 
01213000 
01214C00 
C12I5C00 
01216000 
01217000 
01218000 
0 1 21 9C00 
C1220CO0 
01221  COO 
0-222C00 
01 223C00 
01224000 
0 1 225C00 
01226000 
01227C0O 
01228000 
01229C00 
01230000 
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IF(IV3.£0.5) GOTO  SOI 

01292000 

c 

PVTCAR  OR  taxi  “  GET  ENPLANING  CURB  FAC 

NO 

FOR 

AIRLINE 

01293CO0 

801  00  800  K* 1 , 1 0 

01294C00 

c 

POINT  TO  CURB  SEARCH  SCHEME 

01295000 

L*  I EPSCH( K , J ) 

0 1 29GC00 

c 

IGNORE  FACllITV  NUMBERS  GT  NOENPL 

0 1 297C00 

IF( L . GT . NOENPL ) GOTO  800 

01298C00 

ITEMP1»IN0EXF(8I+L 

01299000 

c 

TEST  FOR  DUMMY  FACILITY 

01300000 

I F ( IMAXBH(MH9( ITEMP1 , 3 ) ) . EQ . 0 JGOTO 

800 

01301  COO 

M.EPCBS+L-1 

0 1 302000 

ITEMP3*1 1 ♦ (M-1 )♦; 

01303C00 

IF  ( I S TO ( I TEMP3 ) ■ EQ . C )  GO  TO  804 

01304000 

c 

CAR  GETS  CURB  SLOT 

01305000 

rALL  ASS I GN( 6 ,M , PH ,  10.1.PB) 

0 1 306000 

GO  TO  803 

0 1 307COO 

804  M  =  EPDPS+L-« 

01300CO0 

ITEMP3  «  1 1 » ( M— 1 )+2 

0 1 309C00 

IF  ( ISTO( 1TEMP3) .£0.0)  GO  TO  800 

0131 OCOO 

c 

CAR  GETS  DP  SLOT 

0131 1C00 

CALL  ASSI GN( 6 ,M , PH ,  10.2.PB) 

C ' 3 1 2C00 

GO  TO  803 

01313000 

800  CONTINUE 

01314000 

L  =  J 

01215C00 

I  TEMP  1  *  INDEXF  (8 )  +-L 

01316000 

M  =  EPOCS+L-1 

0131 7000 

ITFMP3  «  1 1 » ( M-1 )+2 

01318000 

IF  (1ST011TEMP3).EO.O)  GO  TO  805 

01319000 

c 

CAR  GETS  QUEUE  SLOT 

0132CC00 

CALL  ASSIGN) 6, M, PH,  10.3.PB) 

01321  COO 

GO  TO  80J 

0 1 322000 

c 

CAR  MUST  RECIRCULATE 

01323000 

805  CALL  ASSIGN)  5 , 0  ,  PH,  6,0,  Pll,  10.4.PB) 

0 1 324000 

GO  TO  9  8  9  9  9 

01325000 

c 

M*ENPLCURB  STO ,  ITEMP1 «MH9SDW,  I TEMP3*CAR  CURB 

STO 

0 1 32SC00 

803  NPT  TO- IMAXBH ( MH9) I  TEMPI , 3 ) ) 

01327C00 

CALL  ASSIGN)  2,NFTT0,PH,  7 , ITEMP1 , PH  ) 

01328000 

GOTO  9  9  3  9  9 

01329C00 

c 

BUS/ LI MO 

01 33PC00 

608  I TEMP2  *  JMAXGH \ MH2 ( I V2 , 3 ) ) 

0133 ICOO 

I F( I TEMP2 . GT . 0 ) GOTO  809 

0 1 332C00 

I TEMP2* IMAXBHf  MH2 ( I V2 , 1 ) ) 

01333C00 

809  I  TEMPI x INDEX f ( 8 )  +  I TEMP2- 

01334000 

NPT TO* IMAXBH ( MH9( I  TEMPI ,3)) 

01335C00 

CALL  ASSIGN)  2 , NPTTO , PH ,  7,ITEMP1,PH  ) 

0 1 336000 

c 

c 

GOTO  9  9  9  9  9 

0 1 337000 
01338000 
01339000 

c 

12  C  0  N  T  I  N 

U 

E 

01340000 
01 34 ICOO 

c. 

c 

.  .E  N  T  R  A  N  C  E 

01342000 
0 1 343C00 

c 

1  VALUE) 2)  ■  CURRENT  LOCATION 

-  PH2 

0 1 344C00 

c 

01345C00 

NPTFM* I  VALUE ( 2 ) 

0 1 346C00 

NPTTO* IMAXBH ( MH3) NPTFM , 4 ) ) 

01347000 

ASSIGN  813  TO  NEXT 

01 348000 

GOTO  950 

0 1 349000 

813  CALL  ASSIGN)  2, NPTTO, PH  ) 

01350000 

GOTO  99999 

01351000 

c 

01352000 
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13  CONTINUE 

..TICKETING  &  CHECKIN  (ALL) 

I  VALUE  (  2 )  .  CURRENT  LOCATION  -  PH2 
1  VALUE ( 3 )  ■  AIR  LINE  -  MH1(PH1,3) 

1  VALUE ( 4 )  •  TICKETED/NOT  TICKETED  (0,1)  -  PB9 
I  VALUE ( 5 )  ■  RANDOM  NO.  FOR  FRACTIONAL  TRANSFER 
I  VALUE ( 6 )  ■  NUMBER  OF  PAX 

NPTFM*IVALUE(2) 

I V3» (VALUE ( 3  ) 

IF  TERMINATING  (PASSING  THROUGH  LOBBY).  BRANCH  TO  FULL-SERVICE 
IF  (PVAHP8, 8) .  EO .  1  )  GO  1C  844 
IF  GREETER  OR  GREETED.  BRANCH  TO  FULL-SERVICE  TICKETING 
IF  ( I VALUE ( 6 ) • EQ. 0 . OR • PVAL( PB , 1 2 ) . EO • 3 )  GO  TO  844 

IF  PAX  NOT  PRETICKETED  .OR.  RANDOM  NO  .GT.  EXPCHK  . 

...  BRANCH  TO  FULL  SERVICE  SECTION. 

!F( I VA LUE( 4 ) . EO. 1 . OR. I VALUE (5) . GT . IMAXBH(MH2( I V3 . 2) ) )GOTO  844 
GOTO  850 

FULL  SERVICE  FACILITY 

844  d«INOEXF(14) 

K* J+NO TICK 
d«J*1 
L«0 

DO  B45  I»d,K 
L*L*1 

IF<  IMAX8H<MH9(l,4)).EO.iV3>GOTO  848 

845  CONTINUE 

FOLLOWING  EXECUTED  FOR  UNDEFINED  FACILITY 
IF(NOTICK.GT.O)GOTO  847 
WRI  TE  (  6, 1  028  ) 

GOTO  999 

847  L>t 

1  *  ItOEXF 114)4-1 
N-IMAXBH(MH9(I,4)) 

WRITE(6.1027)IV3,N 
NFBCNT-NERCNT41 
I FfNERCNT.EQ. ERRORS )GOTO  999 

848  M*TICOS*L-1 
I  TEMPI «CHEK3 
N  *  14 
GOTO  857 

EXPRESS  CHECKIN  FACILITY 

850  d* INOE  XF( 2 ) 

K.d+NOCHEC 
d*d*1 
L*0 

DO  851  1 *d ,  K 
L«L*1 

IF(  IMAXBH (MH9( 1.4)). EO ■ I V3 ) GOTO  853 

851  C  0  N  T  I  N  U  E 

C  FOLLOWING  COOE  EXECUTED  FOR  UNDEFINED  FACILITY 
d»INDEXF(  14) 

K-d+NOTICK 

d-d+l 


01353000 
01354000 
0 1 355C00 
01356000 
01357C00 
0 1 358000 
01359000 
01360000 
01361  COO 
01362000 
01363000 
0 1 364C00 
01365000 
01366000 
0 1 367C00 
01368000 
01369000 
01370000 
01371  COO 
01372000 
01373C00 
01374000 
01375000 
01376C00 
01377000 
01378000 
01379000 
01380000 
01381000 
01382000 
01383000 
01384000 
01385000 
0 1 386000 
01387000 
01388000 
01389C00 
0 1 390C00 
01391  COO 
01392000 
01393000 
01394000 
01395000 
0 1 396C00 
0 1 397C00 
01398000 
0 1 399C00 
01400000 
01401C00 
01402000 
01403000 
01404000 
0 1 405C00 
01406C00 
01407C00 
01 400C00 
01409000 
01410000 
01411000 
01412000 
01413000 
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L  =  0 

01414000 

SEARCH  FOR  FULL  SERVICE  FACILITY  FOR  THIS  AIRLINE 

01415000 

DO  9S8  I*  J .  K 

01 41 6000 

L«L  +  1 

01417C00 

I F  (  IMAXBH  ( MHS(  1,4)).  £Cf.  IV3 )  GOTO  859 

0 1 4 1 8C  00 

858  CONTINUE 

0141 9C00 

USE  ANY  full  service  facility 

01420000 

IF(NOTICH.GT.O)GOTO  852 

01421000 

WRI Tr ( 6, 1028) 

01422000 

GOTO  999 

01423000 

852  I * INDE XF( 1 4 ) +1 

01424000 

N» IMAXBH! MH9 (1,4) ) 

01425000 

WR1TE(6,1029)IV3.N 

01426000 

NERCNT  *N£RCNT*1 

0  I J27000 

L*1 

01428000 

I F( NERCNT. EO. ERRORS) GOTO  999 

01429000 

859  M*TIC0S+L-1 

01430000 

I  TEMPI «CHEK3 

01431000 

N=M 

01432000 

GOTO  857 

01433000 

853  ftUCHKQS-l+L 

01434000 

N  =  2 

01435000 

I  TEMPI *CHEK2 

01436000 

GOTO  857 

01437000 

857  NPTT0>IMAX8H(MH9(I.3)1 

01438000 

ASSIGN  856  TO  NEXT 

01439000 

GOTO  950 

01440000 

856  CALL  ASSIGN!  2.NPTT0.PH,  4, ITEMP1 .PH.  S.M.PH,  7, I. PH. 

11.N.PB  ) 

01441000 

GOTO  99999 

01442000 

01443000 

01444000 

14  CONTINUE 

01445000 

01446000 

..SECURITY 

01447000 

01448000 

1  VALUE! 2)  «  CURRENT  LOCATION  -  PH2 

01 J49C00 

I VALUE ( 3 )  «  GATE  -  MH1(PM1,9) 

01450000 
0  1 45 1000 

NPTFVxIVALUE(2) 

01452000 

I V3*  1 V  ALUE  ( 3  ) 

01453000 

DETERMINE  SECURITY  FACILITY  ASSIGNED  TO  THIS  GATE 

01454000 

!*IMAX8H(MH9( IV3.4) ) 

01455COO 

IF(l.GT.O)GOTO  860 

01 456000 

WRI TE( 6, l 01 3 ) IV3 

01457C00 

IMAXBH ( MH9( I V3 ,  4  )  )  ■  1 

01458000 

1*1 

01459000 

DETERMINE  LOCATION  OF  SECURITY  POINT. 

01460000 

860  J* INOE *F ( 3 ) ♦ I 

01451000 

M*SEC0S-t-I-1 

01462000 

.  NPTTO* IMAXBH ( MH9( J ,  3 )  ) 

01462000 

NOTE:  MODIFY  NEXT  CALCULATION  TO  REFLECT  EARLY  PASSENGERS  WAITING 

01464000 

UNTIi  CLOSER  TO  FLIGHT  TIME  TO  PROCEED  TO  GATE. 

PASS  CURRENT 01465COO 

TIME  (Cl)  AND  FLIGHT  TIME  (MH1(PH1,6))  VIA  IVALUE 

LIST. 

01466000 

ASSIGN  861  TO  NEXT 

01467000 

GOTO  950 

01468000 

861  CALL  ASSIGN!  2,NPrT0.PH,  5.M.PH,  7.J.PH,  11, 3. PS  ) 

01469000 

GOTO  9  9  9  9  9 

01470000 

01471000 

01472000 

15  CONTINUE 

01473000 

01474000 
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...a  ATE  (ENPLANING  PAX) 

I  VALUE ( 2 )  »  CURRENT  LOCATION  -  PH2 
1  VALUE ( 3 )  »  GATE  -  MH1(PH1,9) 

NPT  FM* I VALUE ( 2 ) 

I V3« I  VALUE ( 3 ) 

NPTTO* IMAX8H ( MH9( IV3.3) ) 

IF(NPTTO.GT.O )GOTO  873 
DO  871  I«1 .NOGATE 

I F ( IMAXBH ( WH9( 1.3)) .NE.O)GOTO  872 

871  C  0  N  T  I  N  U  E 

872  J  =  PVAL 1  PH , 1 ) 

IMAXBH ( MH1 ( J , 9 ) ) • 1 

WRI TE( 6,1014)1V3. IMAXBH (MH1 ( J  ,  2 ) ) ,  I 
I V3*  I 

NPTTO* IMAXBH ( MH9( IV3.3) ) 

873  ASSIGN  874  TO  NEXT 
GOTO  950 

874  M«GAQS  L+I V3— 1 

CALL  ASSIGN(  2.NPTT0.PH,  5.M.PH,  7.IV3.PH,  11,1, PB  ) 
GOTO  99999 


I  N  U 


.PARKING  (PAX) 


NOTE:  UNLIKE  THE  CODE  FOR  MOST  FACILITY  TYPES,  THE  FORTRAN 
CODE  FOR  "PARKING"  MAY  BE  CALLED  FROM  A  VARIETY  OF 
POINTS  WITHIN  THE  GPSS  PORTION  OF  THIS  MODEL. 

I  VALUE ( 2 )  •  CURRENT  LOCATION  -  PH2 
I  VALUE ( 3 )  ■  TRANSPORTATION  MODE  ~  PB6 
I  VALUE ( 4 )  .  DEPLANING/ENPLANING  (0/1) 

I  VALUE ( 5 )  »  CAR  RENTAL  AGENCY  (PB10)  WHEN  IVALUEO) 
I  VALUE ( 6)  -  1  TO  GET  LOT  NUMBER  ONLY 

NPTFM«IVALUE(2) 

I V3* I V A  LUE ( 3 ) 

I V4*  I  VALUE  (  4  ) 

I V5» I  VALUE ( 5 ) 

IV6  »  1  VALUE ( 6 ) 

I F ( IV4 .E0.1 ) GOTO  720 
TESTS  FOR  DEPLANING  PAX 
IF  (IV3.E0.1 )  GO  TO  728 
I F( I V3 . EO. 2 ) GOTO  728 
1  F( I V3 . EQ. 3 ) GOTO  722 
GOTO  721 

TESTS  FOR  ENPLANING  PAX 

720  IF( IV3-EQ.2) GOTO  728 
I F( I V3 • EQ. 3 ) GOTO  722 

IF  (IV3.E0.1 )  GO  TO  728 
ERROR  CONDITION 

721  I»PVAL(PH,4) 

WRITE(6,1015) NPTFM. I , I V4 , I V3 
NERCNT«NERCNT+1 
IF(NERCNT.EO.ERRORS)GOTO  999 
GOTO  99999 

DEPLANING  PAX  -  RENTAL  CAR 
ENPLANING  PAX  -  RENTAL  CAR 


0 1 475000 
01476000 
01477000 
014,8000 
01479C00 
01480000 
01481000 
01482000 
01483000 
01484C00 
01485000 
01486C00 
01487000 
0 1 488C00 
01489000 
01490000 
01491000 
01492000 
01493000 
0 1 494000 
01495000 
01496000 
01497000 
01498000 
01499C00 
01500000 
01501000 
01502000 
01503000 
01 504000 
01505000 
01506000 
01507000 
01508000 
0 1 509C00 
■3  01510C00 
0151 1000 
01 51 2000 
01513000 
01514000 
01515000 
01516000 
0151 7000 
01518000 
01 51 9000 
01520000 
01521000 
01522000 
01523000 
01524000 
0 1 525000 
01526000 
0 1 527C00 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
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c  determine  if  agency  has  special  lot 

722  X * INDEXF( 11) 

J* I+NORENT 
I»I  +  1 

DO  725  N*  I ,  d 

I  F  (  I MAXBH ( MH9 (N,4)).NE.IV5) GOTO  725 
L=IMAXBH(MH9(N,5) ) 

IF(L-GT.t)  GOTO  723 
725  CONTINUE 
C  DEPLANING  PAX  -  SELF 

C  ENPLANING  PAX  -  SELF 

C  GENERAL  LOT 

728  LOTNO  *  PVAL ( PB , 14 ) 

IF  (LOTNO. EQ.O)  LOTNO  •  1 
C  INSERT  ASSIGNMENT  OF  MULTIPLE  LOTS  HERE 
N=INOF.XF(10)+LOTNO 
M*PAROS+LOTNO-t 
IF  (IV6.NE.1 )  GO  TO  724 
CALL  ASSIGN! 14, LOTNO, PB) 

GO  TO  9  9  9  9  9 
C  SPECIAL  LOT 

723  N* INDE  XF( 1 0 ) *L 
M.PARQS+L-1 

724  NPTTO*IMAXBH(MH9(N,3)) 

IF  (NPTFH.EQ.O)  GO  TO  727 
ASSIGN  727  TO  NEXT 
GOTO  950 

727  CALL  ASSIGN!  2.NPTT0.PH,  5.M.PH,  7,N,PH,  11.10.PB.  14. LOTNO, PB) 
GOTO  99999 


17  CONTINUE 

...TRANSFER  PAX 

I  VALUE! 2)  .  SWITCH:  1-TRANSFER.  2.TRANSIT 
I  VALUE  ( 3 )  •  RANDOM  NO  FOR  F  LT  SELECTION  TRANSFER) 

»  ARRIVING  FLIGHT  NUMBER  PHI  (TRANSIT) 

X VALUE ( 4 )  .  OOM/COM/INT  PAX  (1/2/3)  -  PB3  (TRANSFER) 
I  VALUE ! 5 )  ■  GATE  NO.  -  PH5 

M» I VALU£( 5 ) 

I  TEMP 3  * IMAX8H(MH9! M , 4) ) 

IF(ITEMP3.GT.O)  GO  TO  B27 
NRI T£( 6 . 1 01 3  )  M 
I MAXBH ( MM9(M . 4 ) ) ■ 1 
ITEMP3.1 

827  I V2« 1 VALUE ( 2  ) 

GO  TO  (821 ,822 ) , I V2 

TRANSFER  PAX 

821  IF(NOFXFR.GT .OJGOTO  S24 
K«PVAL(PB,S) 

I MAXBH ( MK1 1 ( ITEMP3) ) *IMAXBH(MH1 1(ITEMP3))+K 

I SAVEH ( XFRXM )»I5AVCH( XFRXH)+1 

CALL  A S S I GN (  4 , TRX99 , PH ,  8.CTRL1.PH  ) 

GOTO  9  9  9  9  9 

824  CALL  ASS1GN<  B.CTRLO.PH  ) 

C  RANDOMLY  CHOSE  FLIGHT 

N«MOD( I VALUE (3) ,NOFXFR)+1 


0  1 536C00 
01537000 
01538COO 
01539000 
0 1 540C00 
01541000 
01542000 
01543000 
01544000 
01545000 
01S4GOOO 
01547000 
01548000 
01549C00 
0155C000 
01551000 
0 1 552000 
01553000 
01554000 
01555000 
01556000 
01557000 
01550000 
Cl  559000 
01560000 
01561000 
0 1 562000 
01563000 
01564000 
01565000 
01S66R00 
01567000 
01568000 
01569000 
01570000 
01571000 
01572000 
01573000 
01574000 
01575C00 
01575100 
01575200 
01575.700 
01575*00 
01575500 
01575000 
01575-00 
0 1 576000 
01577000 
01578000 
0 1 579000 
01580000 
0 1 582000 
01583C00 
01584C00 
01585000 
01587000 
01588000 
01591000 
01591100 
01592000 
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1*IMAXBH(MH5(N)  ) 

K*MH1 (1,11) 

IMAXBH (K)«IMAXBH(K)-1 

C  WHEN  ALL  TRANSFER  PAX  FOR  F LT  ASSIGNED,  DELETE  FLT  FROM  TABLE. 
I F ( IMA XBH( K ) • GT . 0 ) GOTO  820 
DO  823  L*N , NOFXFR 
ITEMPl  «MH5(  L) 

I TEMP2* I T  EMP1  +  1 

IMAXBH! ITEMPl )«IMAXBH( ZTEMP2) 

823  CONTINUE 
NOFXFR *NOFXFR“1 
820  CALL  ASSIGN!  1 .i.PH  ) 

GOTO  99999 

TRANSIT  PAX 

822  K  •  I  VALUE ( 3 ) 

FlNO  GATE  OF  ARRIVING  FLIGHT 
IGAT  «  IMAXBH(MH1 (K , 9 ) ) 

K  *  K*1 

FIND  NEXT  OEPARTURE  AT  SAME  GATE 
DO  826  I *K . 999 

IF  (IMAXBH(MH1(I,1)))  818,826,819 
819  IF  (IMAXBH(MH1(I,9)).EQ.IGAT)  GO  TO  817 
826  CONTINUE 

NO  NEXT  DEPARTURE  IN  TABLE 
818  K  >  PV AL( PB, 5 ) 

IMAXBH ( MH1 1 ( I TEMP3 ) ) * IMAX8H(MH 1 1 ( ITEMP3) )+K 
lSAVEH(XFRXM)  *  I SA VEH( XFRXH)* 1 
CALL  ASSIGN  (4.TRX99.PH,  8.CTRL1 ,PH) 

XAC  WILL  BE  TERMINATED 
GO  TO  9  9  9  9  9 

817  CALL  ASSIGN  (1.1, PH,  S.CTRLO.PH) 

GO  TO  9  9  9  9  9 


18  CONTINUE 

...T  RANSFER  FLIGHTS 

I  VALUE  (  2 )  ■  MH1  ROW  NO  -  PHI 

I VALUE( 3)  «  INIT. /DELETE/ADD/TICK  CNTER  PT  NO  0/1 /2/3 

I V2*l VALUE (2  ) 

I  V3*  I  VALUE ( 3  ) 

I F( I V3 . EQ. 1 ) GOTO  832 
IF(IV3.EU,2) GOTO  830 
I F( I V3 . EQ. 3 (  GO  TO  B36 
C  INITIALIZE  TABLE 
DO  834  1*1 .999 

C  TEST!  EN0_0e_TA8LE/ARV_FLT/DEP_FLT 

I F ( IMAXBH ( MH1 ( I , 1 ) ) (835,834,833 

833  ITEMPl * IMAXBH (MH1 ( I , 6) ) *60 

I F ( ITEMPl . GT . I SAVEH( XF AXH) ) GOTO  835 
I F ( ITEMPl . LT. ISAVEH(XFDXH) (GOTO  834 
I F ( IMAXBH (MH1( 1,1 1) ) . EQ.O)GOTO  834 
NOFXFR«NOFXFR+1 
IMAX8H(MH5(NOFXFR) )*I 

834  CONTINUE 

839  CALL  ASSIGN!  1,1, PH  ) 

GOTO  99999 


01593000 
01594000 
01595000 
01596000 
01597000 
01598C00 
01599000 
01600000 
01601  COO 
01602000 
01603000 
01604000 
01605000 
01606000 
01607000 
01608000 
01609000 
01610000 
01611000 
0151 2000 
01613000 
01614000 
01615000 
01616000 
0161 7000 
01618000 
01619000 
01,620000 
01E21000 
01622C00 
01623000 
01624000 
01625000 
01626C00 
01627000 
01628C00 
01629000 
01630000 
01631000 
01632000 
0 1 633C00 
01634000 
0 1 635C00 
01636C00 
01637000 
0 1 638000 
01639000 
01 639 '00 
01640000 
01 641  COO 
01642000 
0 1 643000 
01644C00 
01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01651000 
01652000 
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C  DELETE  FLIGHT  FROM  TABLE  MH5  01653000 


832  I F< IMAX8H(MH5( 1 ) ) .NE . I V2 ) GOTO  99999 

C 1 654000 

DO  029  1*1, NOFXFR 

01655000 

I  TEMPI *MH5{ I ) 

01656000 

1 TEMP2* I  TEMP  1 ♦ 1 

01657000 

IMAXBH! IT  EMP1 ) * IMAXBH ( I TEMP 2 ) 

01658C00 

829  CONTINUE 

01659000 

NOFXFR*NOFXFR-1 

01660000 

GOTO  99999 

01561000 

ADD  FLIGHT  TO  TABLE  MH5 

0 1 662C00 

830  lF(NOFXFR.E0.100>G0T0  331 

01663000 

NOrXFR=NOFXFR+) 

0 1 664C00 

IMAXBH (MH5(NOFXFR) )*IV2 

01665000 

GOTO  99999 

01666000 

ERROR  -  TABLE  OVERFLOW. 

0 1 667C00 

831  WRITE(6,1023)!V2 

0 1 G68C00 

GOTO  99999 

01669C00 

FIND  TICKET  COUNTER  FOR  CORRECT  AIRLINE  FOR  TRANSFER  RAX 

01669025 

836  I A I RLN * IMAXBH ( MH1 ( I V2 ,0 ) ) 

01669050 

IR0WN0*IMAXBH(MH8( 14,2) ) 

01669100 

INUMTC*IMAXBH(MH8( 14, 1 ) ) 

01669*50 

I  TEMPI *IR0WN0+1 

01669200 

ITEMP2*IS0WN0+INUMTC 

01669250 

00837  I*ITEMP1 . ITEMP2 

01669200 

I  F  <  I MA  XBri  ( MHO  l  I  ,4)  )  .EQ.1AIRLN)  GO  TO  838 

01669250 

837  CONTINUE 

01669200 

I  -  I  TEMPI 

01669025 

ITEMP2*I.V.AXBH(MH9(  1.4)) 

0166SO30 

WRITE (6,1 029 )  IAIRLH.ITEMP2 

01669035 

WRITE( 6, 1 033 )  IV2.IV3 

01669040 

838  I PTNO* IMAXBH (MHQ( I ,3) ) 

01669050 

CALL  ASSIGN(2.IPTN0.PH) 

0 1 6695  00 

GO  TO  9  9  9  9  9 

016C9EOO 
01670000 
0 1 67 1  COO 

19  CONTINUE 

01672200 

01673000 

..MISCELLANEOUS  GPSS  ERROR  CONDI 

T  I  0  N  C1674C00 
01675000 

CALLED  FROM  GPSS  TO  RECORD  A  VARIETY  OF  ERROR 

CONDI T I 00 10760 00 

CALLING  XAC'S  FOUND  ON  USER  CHAIN  "ERROR*  AT 

END  OF  RUO 1677C00 
01678000 

I V2* I  VALUE ( 2 ) 

0 1 679C00 

GOTO!  901 , 902 , 903 , 904 . 90S , 906 , 907 , 908 , 909 ,9*0) , I V2 

0 1 680C00 

NO  VEHICLE-PAX  MATCH  AT  DEPLANING  CURB 

01681000 

901  WR!TE(6, 1016)1 VALUE(3) 

01682000 

GOTO  99999 

01683000 

PAX  ENTERED  OEPLCURB  LOGIC  WITH  GR  TX  CODE  LOGIC  NOT  CODED 

TO  HANDLEO 1684000 

902  WRITE! 6,1017)IVALUE(3) , I VALUE! 4) 

0 1 695C00 

GOTO  09999 

0 1 686000 

903  CONTINUE 

0 i 687000 

904  CONTINUE 

01608000 

905  CONTINUE 

01689000 

906  CONTINUE 

01690000 

907  CONTINUE 

01691000 

908  CONTINUE 

01692000 

909  CONTINUE 

01693000 

910  CONTINUE 

01694000 

GOTO  99999 

01695000 

01696000 

01697000 
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20  CO  NTINUE 

...F  0RMATTE0  REPORTS 

Cl  «  I VA  LUEO  ) 

SEARCH  FACILITY  TYPES. 

DO  450  I»1 ,20 
NSWTCHaO 

K*IMAXBH(MH8< 1,1)) 

BRANCH  IF  NO  FACILITIES  FOR  TYPE  *T*. 

IF(K.EO.O) GOTO  450 

SET  OO-LOOP  VARIABLES  FOR  SCAN  OF  FACILITY  TABLE  (MH9 ) • 

J* I MAABH ( MH8( 1,3)) 

K«K+J 

BRANCH  TO  APPROPRIATE  HEADER  FOR: 

GATES 
CUSTOMS 
SECURITY 
SKIP  OTHER  FACILITY  TYPES. 

GOTO!  400,400,400,450,400,450,450,450,450,450, 

•  400,450,400,400,450,450, 450,450.450,450) ,  I 

400  1FINTLINS.GT .0)WR1TE(6, 1050) ( ( ITITLE(II.JU) ,II«1 .64), JJ.1 .NTLINS) 


CHECKIN/TICKETING 
CAR  RENTAL 
IMMIGRATION 


01698000 

01699000 

01700000 

01701000 

01702C00 

01703000 

01704000 

01705000 

01706000 

01707000 

01708000 

01709000 

01710000 

oi7i iroo 

01712000 

01713000 

01714000 

01715000 

01716000 

01717000 

01718000 

01719000 

01720000 


GOT 0(  401  .402,403,450.405,450,450,450,450,450, 

01 72 1000 

* 

411,450,413,414,450.450,450.450,450,450).  I 

01722000 

c 

BOARDING  GATES 

01723000 

401 

WRI TE(6, 1 051 ) 

01724000 

GOTO  430 

01725000 

c 

CHECK IN( EXPRESS) 

01726000 

402 

WRI  TE16, 1  052) 

01727000 

GOTO  430 

01728000 

c 

SECURITY 

0 1 729C00 

403 

'  MTE(6.1053) 

01730000 

GOTO  430 

01731000 

c 

CUSTOMS 

01732000 

405 

WR I TE( 6 , 1 055) 

01733000 

GOTO  430 

01734000 

c 

CAR  RENTAL 

01735000 

411 

WRI TE16, 1 061 ) 

01736000 

GOTO  4  30 

01737000 

c 

immigration 

01738000 

413 

WRI TE 16, 1 063) 

01739000 

GOTO  430 

01740000 

c 

TICKET  S&CHE  CK I N 

01741000 

414 

WRI TE( 6, 1 064 ) 

0 1 742C00 

GOTO  430 

01743C00 

c 

COMPLETE  HEADING.  THEN  CHECK  EACH  FACILITY  OF  TYPE  *1*. 

0 1 744C00 

430 

WRI  TE ( 6. 1  092) 

01745000 

WRI TE(6, 1 094) 

01746C00 

WRI TE ( 6, 1 096 ) 

01747000 

NCOUNT  *1 1 *NTL1NS 

01748000 

ITEMP1.FAC0SX( I ) 

01749000 

10UER«4*( ITEMP1-1 ) 

0 1 750C00 

I OU  E I « I OU  E  R+ 1 OUE  R 

01751000 

IST0X»1 1 • ( I  TEMP  1 ”1 ) 

01752C00 

I TEMPI »ITEMP1-FACQSX( I )+1 

01 753C00 

DO  455  NaJ.K 

01 754000 

c 

CHECK  FOR  DUMMY  FACILITY. 

017S5C00 

IF(IMAXBH(MH9(N,3) ).EO.O)SOTO  44B 

01756000 

NCOUNT  «NC0UNT+2 

01757000 

c 

CHECK  FOR  FULL  PAGE  (55  LINES). 

01758000 
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c 

c 


c 


c 


c 


c 


c 


c 


1 F ( NCOUNT .  LE  . 55) GO? 0  445 

01759000 

WRITE(6. 1078) 

01760000 

IF)NTLINS.GT . 0 )WRITE (6, 1 050) ( ( X  TITLE) II , UU ) .  II«1 ,64),jJ.1 .NTLINS) 

0 1 760 1 00 

SOrO(  421 .422,423,450,425,450,450,450,450,450, 

01761000 

* 

•HI  .450.433,434,425,450,450,450,450,450),  I 

01762000 

BOARDING  DATES 

01763000 

421 

WRITE) 5, 1051 ) 

C  764000 

GOTO  443 

01755000 

CHECKIN) EXPRESS) 

01766000 

422 

WRITE<6. 1052) 

01767000 

GOTO  443 

0 1 768000 

SECURITY 

01769000 

423 

WRITE) 6, 1053) 

01770000 

GOTO  443 

0177 iOOO 

CUSTOMS 

01772000 

425 

WRITE) 6 , 1 055 ) 

01773000 

GOTO  443 

01774000 

CAR  RENTAL 

01775000 

431 

MRITE(6. 1061  ) 

01776000 

GOTO  443 

01777000 

IMMIGRATION 

01778000 

433 

WRITE) 6. 1063) 

01779000 

GOTO  443 

01780000 

TICKETS4CMECKIN 

01781000 

434 

WRITE) 6, 1064) 

01782000 

GOTO  443 

01783000 

443 

NCOUNT  all  ■♦■NT  L  INS 

0 1 784000 

WRITE) 6. 1092 ) 

01785C00 

WRITE (6,1 094 ) 

01786000 

WRITE(6. 1096) 

01787000 

445 

I TEMP2 *  I  STO)  I  ST0X4- 1  )♦! STO ( ISTOX+2 ) 

01788000 

CHECK  FOR  UNDEFINED  NUMBER  OF  AGENTS.  1000  ARBITRARY  NUMBER. 

01709000 

I F II T  E«F2 . GT . 1 000 ) NSWTCH* 1 

01790000 

1 TEMPS* I STO) I ST0X+6) • SCALE 

01791000 

IF) ITEMF3 .GT . 0 ) GOTO  444 

01792000 

I TEMP4 -0 

01793000 

XTEMP5  *0 . 0 

01794000 

I TMP6M=0 

01795000 

I TMP6S  =  0 

01796000 

GOTO  446 

01797000 

444 

I TEMP4*  I S  TO ( 1ST0X+?) 

01799000 

XTEMP5  *FSTO{ IST0X+3)/C1 

01799000 

I TEMP6  *  F STO) I STOX+  3 ) /ITEMP3 

01800000 

I TMP6M  *  I T  EMP6/60 

01801000 

I TMP6S  =  MOD ( I T  EMPU , 60 ) 

01802000 

448 

ITEMP7=I0UE( 10UE 1+2) ‘SCALE 

01803000 

IF) 1TEMP7 .GT . 0 ) GOTO  447 

01804000 

I TEMng  x  0 

01305000 

XTEMO9«0.0 

01806000 

ITM10M=0 

01307000 

I TM1 OS  =0 

01800000 

GOTO  449 

01309000 

447 

I TEMP8 B IOUE ( 1 OUE I  ♦? ) *SCA  LE 

0181000C 

XTEMPQ.FQUE) I0UER+2)«SCALE/C1 

01811000 

I TMP 1 0«  FOUE ( I OUER  »2 ) »SCA  LE/ITEMP7 

0 1812000 

I TM1 OM  *  I TMP1 0/60 

01813000 

ITMIOS'MOO) ITMP10.60) 

01814000 

449 

WRITE) 6, 1075) I  TEMPI , ITEMP2, ITEMP3 , ITEMP4 , xTEMPS, ITMP8M. 

01815000 

• 

I TMP6S , I TEMP7 , 1  TEMPS , XTEMP9 , 1 TM1 OM, I TM1 OS 

01616000 

448 

ITEMPWTEMP1  +  1 

01817000 

IQUER* IOUER+4 

01818000 
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IQUE1-IQUE1+8 

01819C00 

ISTOX* ISTOX+1  1 

01820000 

45S 

CONTINUE 

01821000 

WRl  TE(6>  1  078) 

01822000 

c 

test  for  undefined  no.  of  agents. 

01623000 

IF{NSWTCH.E0.1 )WRITE( 6, 1079 ) 

01824000 

450 

CONTINUE 

01825000 

c 

01826000 

GOTO  99999 

01827000 

c 

01828000 

c 

01829000 

21 

CONTINUE 

01830000 

c 

01831000 

c, 

...C 

LOCK  UPDATE 

01832000 

c 

01833000 

c 

IVALUE(2)  •  TIME  INCREMENT  (SECONDS) 

01834000 

c 

01835000 

I TEMPI  «ISAVEN(CLKXH)4-IVALUE(2)/60 

01836000 

I F ( MOD ( ITEMP 1 . 1 00 ) . GE . 60 ) ITEMP 1 -I  TEMPI +40 

01837000 

I SAVEH ( CLKXH ) « 1  TEMP 1 

01838000 

GOTO  9  9  9  9  9 

01839000 

c 

01840000 

c 

01841000 

22 

CONTINUE 

0 1 942C00 

c 

01843000 

c, 

...S 

NAPSHOTS 

01844000 

c 

01845000 

c 

01846000 

c 

STORAGE  OUTPUT  FLOW 

01847000 

c 

01848000 

NSW«H*0 

01849000 

i tempi  * i saveh ( clkxh ) 

01849*00 

IFUINSNP.LT. 50)  GO  TO  6*3 

01850000 

NSWfCH*7 

01851000 

LlNSNPsNUINS 

01852000 

IF(NTLINS.GT .0) WRITE( 12, 1050) ( ( ITITLE( I , J) , 1-1 ,64).d-1 , NTLINS ) 

01879000 

WRI7E(  12,1 07  4 ) 

01880000 

WRITE! 12,1082)  , 

01 881  COO 

KRITE( 12.107G)  „ 

01882000 

852 

DO  654  I-L-20  '  i  '  i! 

01803000 

ITEMPA(I)»ISAVEH(I)»SCALE  " 

01884000 

654 

CONTINUE 

01885000 

WRITE(  12,1077)1  TEMPI , ( I TEMPA( I ), 1-1 ,24) 

01806000 

IFUINSNX.LT. 50)  GO  TO  960 

01806020 

linsnx-ntlins 

01886040 

1 F(NTL JNS.GT. 0 )WRITE( 13,1 050) { (ITITLE(II, JJ) , 1 1 » 1 .64) , Jd»1 , NTLINS ) 0 1 8P6C60 

WRITE( 13. 1070) 

01886080 

WRITE( 13.1082) 

01886100 

WRITE( 13,1076) 

01886120 

960 

L INSNX  »  L 1N5NX*1 

0188R’40 

DO  660  IR-1 , 24 

01886160 

ISTRN0-5PST0! IR) 

01896*80 

IF( ISTRNO.EO.O)  GO  TO  965 

01836*90 

dENTCT-1 1«( ISTRNO-1 )*6 

01886200 

UCRCON-1 )•( 1STRNO-1 )■«■! 

01886220 

XENTCT -ISTO(UENTCT) 

01886240 

XCRCON- ISTO( OCRCON ) 

01836260 

FLCW.( (XENTCT-ENTRCT(IR) )'(XCRCGN-C«CONUR) ) )-SCALE 

01886280 

ENTRCT(IR)«XENTCT 

01886300 

CRCON( IR) -XCRCON 

01886320 

TSS0UT(1)-I TEMPI 

01886340 

L 


i 
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TSS0UT(IR+1 )*FLOW 

QUEUE  LENGTHS 

965  ITQUE*GPQUE( IR) 

IF(ITQUE.EQ.O)  GO  TO  967 
J0UE»8»(ITQUE-t )+6 
TSQUE(I)«I TEMPI 
TSOUE ( I R+ 1 ) *  I QUE ( JOUE ) • SCALE 

HALF-WORD  SAVE  VALUES 

967  I THLFsGPHALF (IB) 

IF( ITHLF.EQ. 0)  GO  TO  660 
ISHLFs ISAVEH! ITHLF) 

FLOW* <  ISHLF-.JTHLF(IR))«SCALE 
TSHALFM)«J  TEMPI 
TSHALFI IR+1 )*FLOW 
JTHLF ( IR)*ISHlF 
660  CONTINUE 

DO  969  IL«1 ,7 
dSECT  L* IMAX RH( MH1 2 ( 1 L ) ) 

TSFLOW{ 1 )  *  I TEMPI 

TSFLONI IL+1  )«(USECFL-ISECFL(IL))*SCAL£ 
969  ISECFLl Il)»JSECFl 
00  972  I  T«1 ,  15 

d  TCK  F  L»  IMA  X  BH !  MH 1 3 ( I T ) ) 

TTFLOWU  )*  ITEMP1 

TTFLON( IT+1 )»(JTCKFL-JTCKFL(IT))*SCALE 
973  ITCKFL! IT)»JTCKFl 

WHITE! 13, 1077)  ( TSSOUT (IP),IP*1,25) 
WRITEM3.  1095)  (  T SQuF | IP), IP *2, 25 ) 
WRITE( 13, 1 0*5)  (TSHALFI IP) , J?*2,25> 
WRITE! 13. 1095)  ( 1 Sr  LOW (IL),IL*2,6) 
WRITE! 13, 1095)  (TTFL0W(IP),IP-2,16) 
WRITE!  1<«,  1097  |  (TSSOUT!  IP),  I  P«1  .25), 

•  (TSHALr! IP) , IP.2,25)  , 

•  ( TCQUE (IP),|P*2,25) , 

•1TSFLOW! IL) ,  lL-2,8) , 

•(TTFLOW(IT) , IT>2, 16) 

GOTO  9  9  9  9  9 


23  CONTINUE 

...CHANGE  CARD  PROCESSING 

I  VALUE ( 2 )  •  SWITCH,  -1  TO  READ  CARD 

•2  TO  LOWER  STORAGE 
I  VALUE! 3)  m  STORAGE  NUMBER  FOR  LOWERING 
IVALUE(A)  «  DESIRED  STORAGE  CAPACITY 

IF  ( I  VALUE ( 2  ) . EQ.2)  GO  TO  590 

CHANGE  CARO  PROCESSING 

8RANCH  IF  FIRST  ENTRY 

IF  ( ICHNG1 . EO.O)  GO  TO  5B0 
C  PROCESS  PREVIOUS  CHANGE  CARD 

IF  (SERVRSM ) .EO.O)  GO  TO  560 
C  CHANGE  OF  SERVERS 


01866360 
01886380 
0 1 886*00 
01886^20 
018B6P40 
01866A50 
01B8GP60 
01886A80 
01886600 
01886620 
01686640 
01C66660 
0 1 886680 
01886690 
01886592 
01 680694 
01986F00 
01685620 
01886640 
01886660 
01686661 
01880662 
01800663 
01886664 
01886665 
0 1 856667 
01886669 
01386671 
01886673 
0138GF75 
01886700 
01986720 
0 1886-40 
0  •  086750 
01666-751 
01686-52 
01686754 
01880-56 
01S86758 
01886*60 
01887000 
O1C80COO 
01609000 
01890000 
01891000 
01892000 
01893000 
0I894O00 
01895000 
0 1 896C00 
01897000 
01898000 
01899000 
01900000 
01901000 
01902C00 
01903000 
01904000 
01905000 
01906000 
01907000 
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i « i 
M  »  0 

551  00  552  L-1.20 

IF  (SERVRS(I).EO.FACTYP(L))  GO  TO  553 

552  CONTINUE 
GO  TO  557 

553  J  •  FACOSX(L) 

IF  (J.EO.O)  GO  TO  557 
J  *  J-1 

554  I  «  I+l 

IFACNO  *  SERVRS(I) 

IF  l IFACNO. EO.O)  GO  TO  558 
IF  (IFACNO. LT.O)  GO  TO  551 
IF  (IFACNO. GT. NFACSMIL.1 ))  GO  TO  557 
HI  •  1 1»(J+IFACN0-1 )+1 
K2  *  K  1  +  1 

C  CURRENT  CON! ENTS 

ICONT  »  ISTO(KI) 

C  REMAINING  capacity 
IRCAP  «  IST01K2) 

1  ^  1  +  1 

NEWCAP  *  SERVRS(I) 

IF  (NEWCAP. LT.O)  GO  TO  557 
IF  (NEWCAP. GE. ICONT)  GO  TO  555 

C  MUST  LOWER  CAPACITY  BELOW  PRESENT  CONTENTS  USING  STORAGE  CHANGER 

c  Transaction  in  gpss 

I STO( K 2 )  -  0 
M  >  M+1 

IMAXBH (MH7 (M , 1 ) )  «  0+IFACNO 
IMAXBH(MH7(M*30, 1 ) )  •  NEWCAP 
GO  TO  554 

C  MUST  RAISE  CAPACITY  OR  LOWER  TO  >  OR  »  PRESENT  CONTENTS.  STORAGE 
C  CHANGER  X AC  WILL  LEAVE, ENTER  TO  RESTART  DELAY  CHAIN 

555  IST0(K2)  •  NEWCAP* ICONT 
M  •  M+1 

IMAXBH (MH7 (M , 1 ) 1  *  U+IFACNO 
C  FIX  ENTRY  COUNT 

1 STO( K 1 +5)  «  IST0(K1+5)-1 
GO  TO  554 

557  WRITE  (6,1101)  TIME. SERVRS, I, M.L.J, IFACNO, K1.K2. 

•  ICONT , IRCAP .NEWCAP 

CALL  LOGIC  (LS.dOBLS) 

GO  TO  9  9  9  9  9 

558  00  S59  1+1,30 
5ERVRSU)  ■  0 

559  CONTINUE 
I SAvEH ( NSCXH  )  *  M 

560  CONTINUE 

INSERT  HERE  ADDITIONAL  CHANGE  OPTIONS 

READ  NEXT  CHANGE  CARD 

READ  (5. 1002, END-585)  ICARD 
NCARO  «  NCARO+1 
LINECT  «  LINECT+1 
IF  (LINECT. LT. 51 )  GO  TO  579 
LINECT  -  1 
WRITE  (6,1005) 

579  WRITE  (6,1004)  NCARD , ICARD 
C  ENTER  HERE  FIRST  TIME  THROUGH 

560  IF  (ICARD(I).NE.ICHAN)  GO  TO  585 


01908000 
0  1 909C00 
01910000 
01011000 
01912000 
01913000 
01914000 
0 1 91 5000 
01916000 
01917000 
01918000 
01919000 
01920000 
01921000 
01922000 
01923000 
01924000 
01925000 
01926000 
01927000 
01928000 
01929000 
01930000 
01931000 
01932000 
01933000 
01934000 
01935000 
01936000 
01937000 
01938000 
01939000 
01940000 
01941000 
01942000 
01943000 
01944000 
01945000 
01946000 
01947000 
01948000 
01949000 
01950000 
01951000 
01952000 
01953000 
01954000 
01955000 
01956000 
01957000 
01953000 
01959000 
01960000 
01961000 
01962000 
01963000 
01964000 
01965000 
01966000 
01967000 
01968000 
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onooonoooo  o  o  non 


I  CHUG 1  *  1 

CALL  XCOOE  (BUFFER, 80) 

WRITE  (10,1002)  ICARD 
BUFFER (  I )  ■  NAMFCH 

BUFFER (2)  .  IAND(BUFFER(2) ,MA$K2)+BLANK2 
CALL  XCOUE  (BUFFER, 84) 

READ  ( 10, CH) 

IC  *  ISAVEH(CLKXH) 

C  SET  ADVANCE  TIME 

I SAVEF ( CHGXF )  «  60* ( < TIME-(TIME/100)*40)-( IC-( IC/100)*40) ) 
GO  TO  9  9  9  9  9 
C  NO  MORE  CHANGES 

585  I SAVEF (CHGXF)  *  1000000 
GO  TO  9  9  9  9  9 

LOWER  STORAGE  CAPACITY 


590  U  *  11*(IVALUE(3)-1 )+1 
NEWCAP  •  I VA LUE (4 ) 

NURCAP  •  NEWCAP-ISTO(J) 

IF  (NURCAP. GE.O)  GO  TO  592 
ISTO(  J+1  I  »  0 
GO  TO  9  9  9  9  9 
592  ISTO(J+1)  >  NURCAP 
STORAGE  LOWERING  COMPLETE 
ISAVEH(SLCXH)  *  t 
GO  TO  9  9  9  9  9 

24  CONTINUE 

...CONCESSION 


I  VALUE ( 2 )  •  CURRENT  LOCATION  -  PH2 
1 VALUE (3)  ■  FLIGHT  "ABLE  ROW  -  PHI 
I  VALUE ( 4 )  .  RANDOM  NUMBER  FOR  CONC.  AND  LEAVE  TIME 
IVALUE(S)  *  CLOCK  -  Cl 

I  VALUE  1 6)  ■  SWITCH,  -1  FOR  LOBBY  CONCESSION 

■2  FOR  CONCOURSE  CONCESSION 


IF  (NOCONC.EQ.O)  GO  TO  752 
NPTFM  •  IVALUE(2) 

I FLT  >  I VALUE ( 3 ) 

IGAT  .  1MAXBH(MH1(IFLT,9)) 

I  «  0 

C  DETERMINE  SECURITY  FACILITY  ASSIGNED  TO  GATE 

IF  ( I  VALl'E ( G )  •  EO.  2  )  1  .  1MAXBH  (MK9(  IGAT , 4 )  ) 
C  COUNT  CONCESSIONS  WITH  SAME  SECURITY 
L  *  INOEXF ( 1 5 )*1 
M  «  INOEXF (IS) tNQCOUC 
IC  •  0 

DO  751  J*l,M 

IF  ( IMAXBH ( MH9 ( J , 4 ) ) , EO. I )  IC  ■  IC+1 

751  CONTINUE 

IF  (IC.GT.O)  GO  TO  753 
C  NO  CONCESSION  AVAILABLE 

752  CALL  ASSIGN  (5.0. PH) 

ISAVEH ( TRVXH  )  «  0 
GO  TO  9  9  9  9  9 

C  SELECT  ONE  CONCESSION  RANDOMLY 
759  IRN  •  M0D(IVALUE(4) , IC)+1 
IC  ■  0 


01969000 
01970000 
01971000 
01972000 
01973000 
01974000 
01975000 
01976000 
01977000 
01978000 
01979000 
01980000 
01981000 
01982000 
01983000 
01984000 
01985000 
0 1 98G000 
01987000 
0 1 988000 
01989000 
01990000 
01991000 
01992000 
01993000 
01994000 
01995000 
01996C00 
01997000 
01998000 
01999000 
02000000 
02001  COO 
02002000 
02003000 
02004000 
02005000 
02006000 
02007000 
02008000 
02009000 
02010000 
02011000 
02012000 
02013000 
02014000 
02015000 
02016000 
02017C00 
02018000 
02019000 
02020000 
02021000 
02022000 
02023000 
02024000 
02025000 
02026000 
02027000 
02028000 
02029000 


B-3-36 


ononnnn  nnonno  ooooooo 


00  754  J-L.M 

IF  (IMAXBH(MH9(J.4)).fc0.1)  1C  ■  IC«-1 
IF  (IC.EO. IRN)  GO  TO  755 

754  CONTINUE 

755  NPTTO  »  I MAX BH( MH9 ( J . 3) ) 

ASSIGN  756  TO  NEXT 

GO  TO  950 

756  IC1  «  1 VALUE ( 5) 

C  COMPUTE  WHEN  TO  LEAVE  CONCESSION 

I  TIM  I  IMAXBH ( MH1 (1FLT.6)) *60- I Cl 

IF  ( I VALUE ( 6 ) ■ EO. 1 )  ITIM  •  ITlM-LEAVEl-LEAVEV.I VALUE!4 )/tOOO 
IF  ( I VALUE ( 6  ) . EO. 2 )  ITIM  «  I T I M-LEAVEC-LEA VEV. I  VALUE ( 4 ) /1 000 
IF  (ITIM.LT.O)  ITIM  ■  0 

CALL  ASSIGN  (2, NPTTO. PH,  S.ITIM.PH,  7.J.PH.  11.l5.PB) 

GO  TO  9  9  9  9  9 

25  CONTINUE 


02030000 
0203 1 000 
02032000 
02033000 
02034000 
02035000 
02036000 
02037000 
02038000 
02039000 
02040000 
02041000 
02042000 
02043000 
02044000 
02044025 
02044050 
02044100 


...C  ONCOURSE 

IVALUE(2)«CURRENT  LOCATION  (PT.  N0.*PH2) 
I  VALUE ( 3 ) *GATE  NUMBER — MH1(PH1.9) 

NPTFm. I VALUE (2) 

I  V3» I  VALUE ! 3 ) 

I SECa I MAXBH( MH9( I V3 , 4) ) 

INDEXF( 3 )♦ I  SEC 
NPTTl].  IMAXBH  (  MH9  (  J ,  3  )  ) 

ASSIGN  920  TO  NEXT 
GO  TO  950 

920  CALL  ASSIGN!  2, NPTTO. PH.  5, I SEC . PH  ) 

GO  TO  99999 


02044150 

02044200 

02044250 

02044200 

02044250 

02044A00 

02044450 

02044500 

02044550 

02044600 

02044650 

02044"’00 

02044^50 

02044600 

02044650 


02045000 

02046000 

...WALKING  TIME  CALCULATION  02047000 

02048000 

MH6  VALUES  MAY  BE  MODIFIED  IN  ANY  DESIRED  MANNER  HERE . 02049000 

02050000 
02051000 
02052000 
02053000 
02054000 
02055000 
02056000 
02057000 
02058000 
02059000 
02060000 
02061000 
02062000 
02063000 
02064000 
02065000 
02066000 


IF  ERROR  COUNT  EXCEEDS  ‘ERRORS’  (DEFAULT  VALUE  50),  02067000 

PROGRAM  WILL  TERMINATE.  02068000 

02069000 

999  WRITE! 6. 1999)  02070000 

CALL  LOGIC!LS, JOBLS)  02071000 

GOTO  99999  02072000 


950  I F ( NPT  OSW . EO . 1 ) GOTO  951 

I F( NPT  FM. GT . 0 . AND .  NPTTQ .  GiT . 0 ) GOTO  951 
NPT0SW»1 

WRI TE! 6.1 032 ) NPTFM, NPTTO. I VALUE 

951  ISAVEH ( TRVXH ) « IMAXBH) MH6 ( NPTFM , NPTTO) ) 
ITEMPT»PVAL( PH.9)+I SAVEH< TRVXH) 

CALL  ASSIGN!  9 , 1  TEMPT , PH  ) 

GOTO  NEXT,  ! 309 .313,326, 328 , 

•  516.521.526.531,536, 

•  691,719. 

•  727,756. 

•  813,856.861,874,920) 


...E  RROR  ABEND 
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c 

c 

c 

C  1  C  0 

C  2  C  0 

C  3  C  0 

C  4  C  0 

C  5  C  0 

C  6  C  0 

C  7  C  0 

C  8  C  0 

C  9  C  0 

C  10  C  0 

C  11  C  0 

C  12  C  0 

C  13  C  0 

CMC  0 

C  15  C  0 

C  16  C  0 

C  17  C  0 

C  18  C  0 

C  19  C  0 

C  20  C  0 

0  21  C  0 

C  22  C  □ 

C  23  C  0 

C  24  C  0 

C  25  C  0 

C 
C 
C 

99999  R  E 


1000  FORMAT (' 

1001  FORMA r</. 
•E'  . 13,  '  . 
•TABLE.  '  ) 


N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 


ERROR  IN  FLIGHT  INPUT  DATA  CARD.') 


C2073000 
02074PC0 
02075000 
02076000 
02077C00 
02078000 
02079000 
02080000 
02081000 
02062000 
02083000 
02084000 
C2085000 
02086000 
C2087000 
02080000 
02089000 
02090000 
02091000 
02092000 
02093000 
02C94P00 
02095000 
02096000 
02097000 
02093000 
02099000 
02100000 
02101000 
02102000 
02103000 
02104O00 
C2 105000 
021 06000 
02107000 
02108000 


WARNING.  NO  CHECKIN  FACILITY  DEFINED  FOR  AIRLINE  C002109000 
FACILITY  OF  AIRLINE  CODE', 13.'  USED.  RESULTS  UNPREDIC021 1 0000 

021 1 1C0O 


1002  FORMAT (20A4)  02112000 

1003  FOPMAT ( 1  ERROR  IN  GEOMETRY  CARD.  INVALID  FACILITY  TYPE  IN  CARD  S021 13000 

•EOUENCE' ,14. ' . ' )  02114P0O 

1004  FORMAT (2X, 14 , 31.20A4 )  02115000 

1005  FORMAT (1H1.///.15X, 'I  N  P  U  T  DAT  A',//)  02116000 

1006  FORMAT  ( // ,  1 0X ,  '  £  r:  D  0T  INPUT  OAT  A1,//)  O2117C0O 

1007  FORMAT ( / ,  '  WARN . NG .  PROBLEM  IN  "GROUND  TRANSPORT  MODE"  LOGIC.  02118000 

*  PASSENGER  ASSIGNED  TO  BUS.  CHECK  GRTRANSP  DATA.')  02119000 

1008  FORMAT!/.'  WARNING.  ATTEMPT  TO  EXIT  TO  BLOCK  NUMBER', 15,’  VIA  C2120P00 

•"EXIT" .  RESULTS  UNPREDICTABLE.  CHECK  F JNCT I  ON '  ,  1 3 ,  ’ . ' )  02121000 

1009  FORMAT (/.'  WARNING.  ATTEMPT  TO  EXIT  TO  DEPLANING  CURB  FROM  FAC02122000 

*  I L ITY  Type  '  , A4 , ' .  RESULTS  UNPREDICTABLE-')  02123000 

1010  FORMAT!/. '  WARNING.  PASSENGER  ATTEMPTED  TO  GO  TO  IMMIGRATION.  02124000 

*  NO  FACILITIES  CETINED.  RESULTS  UNPREDICTABLE . ’ )  02125000 

1011  FORMAT!/,'  WARNING.  NO  IMMIGRATION  FACILITY  SPECIFIED  FOR  GATE0212CO00 

•'.13,'.  ',13,'  CHOSEN.')  02127000 

1012  FORMAT!/,'  WARNING.  ATTEMPT  TO  EXIT  TO  DEPLANING  CURB  FROM  ',*02128000 

•4.'.  RESULTS  UNPREDICTABLE.  CHECK  FUNCT ION '  , 1 3 , ' . '  )  02129C00 

1013  FORMAT!/,'  WARNING.  NO  SECURITY  FACILITY  DEFINED  FOR  CATE ', 13 . 021 30000 

SECURITY  FACNO  1  ASSIGNED.  CHECK  GATE  INPUT  CARD  FOR  I PARAM021 31 000 
•(2) . ' , /, '  THIS  MESSAGE  WILL  NOT  REPEAT . ' )  02132000 

1014  FORMAT!/,'  WARNING.  GATE',  14,'  NOT  DEFINED.  CHECK  DATA  FOR  002133000 
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1015  FORMAT (/, 1 
•  4,‘,  PH4»\ 
•) 

1016  FORMAT ( / , 1 


RESULTS  UNPREDIC  T 021 34000 
02135000 


•EPARTING  FLIGHT' , 15, ' .  GATE1, 14,*  USED.1,/, 

•ABLE.1,/,1  THIS  MESSAGE  41 LL  NOT  REPEAT.1) 

WARNING .  INVALID  CALL  TO  FORTWI  “PARKING*  .  PH2* ',1 021 36000 
,15,'.  PB7* 1 , 12 , 1 ,  P B6* 1 , 12 , 1 .  RESULTS  UNPREDICTABLE . 1 021 37C00 

02138000 

ERROR.  VEHICLE  XAC'.IS,1  UNABLE  TO  MATCH  WITH  PAX  A02139000 
*T  DEPLANING  CURB.  CHECK  USER  CHAIN  “ERROR"  FOR  THIS  XAC.1,  02140000 

*/.'  RESULTS  UNPREDICTABLE. 1 )  02141O00 

1017  FORMAT!/,1  ERROR.  PAX  XAC  WITH  GROUND  TRANSPORT  MODE1, 13, 1  ENT02142000 

•  EKED  BLOCK  DPLCO.  CHECK  USER  CHAIN  "ERROR"  FOR  XAC  NO'.IS,1.1,  02143000 

•  /.‘  RESULTS  UNPREDICTABLE. 1 )  02144000 

1018  FORMAT!/,1  WARNING.  NO  FACILITY  DEFINED  FOR  CAR  RENTAL  AGENCY . 021 45000 

•  CODE1, 13, FACILITY  FOR  AGENCY  CODE1, 13,'  USED.  RESULTS  UNPR02146000 

•EOICTABLE. 1 )  02147000 

1019  FORMAT!/,1  WARNING.  NO  CAR  RENTAL  FACILITIES  DEFINED.  RESULT 021 48000 

*S  UNPREDICTABLE.  THIS  MESSAGE  WILL  NOT  REPEAT.1)  02149000 

1020  FORMAT!///,1  WARNING.  NO  FACILITIES  HAVE  BEEN  DEFINED  FOR  THE  02150000 

•FOLLOWING  CLASSES: 1 )  02151000 

1021  FORMAT  1 1 1 X , AS)  02152000 

1022  FORMAT!/, 1  EXECUTION  CONTINUES. ' )  02153000 

1023  FORMAT!/,1  WARNING.  ADDITION  OF  DEPARTING  FLIGHT,  MH1  ROW  NO1. 02154000 

•14. 1  TO  TRANSFER  FLIGHT  TABLE  MH5  WOULD  HAVE  CREATED  OVERFLOW  COND02155000 
• I T I ON . 1 , / , 1  FLIGHT  NOT  ADDED.  EXECUT ION  CDNT INUES . * )  02156000 

1024  FORMAT!///)  02157000 

1025  FORMAT!1  WARNING.  POINTX  AND  POINTY  BOTH  0  FOR  POI NT 1 , 14, ' , 1 )  02158000 

1026  FORMAT ( 11X, 1 TICKETSSCHECKIN1 )  021S9000 

1027  FORMAT!/,1  ERROR.  NO  TICKET SACHECK I N  FACILITY  DEFINED  FOR  A1RL02160000 

•INE  CODE1, 13,'.  FACILITY  OF  AIRLINE  CODE'. 13. 1  USED.1)  02161000 

1028  FORMAT!/,1  ERROR.  NO  “T1CKETSACHECKIN"  FACILITIES  DEFINED  FOR  02162000 

•ENPLANING  PASSENGERS.  RUN  TERMINATED. 1 )  02163000 

1029  FORMAT!/,1  ERROR.  NO  EXPRESS  CHECKIN  FACILITY  DEFINED  FOR  AIRL02164000 

•INE  CODE1, 13,'.  FULL  SERVICE  FACILITY  OF  AIRLINE  CODE',13,'  USED02165000 
•.')  02166000 

1030  FORMAT! 1 IX.  1  IMMIGRATION1  )  02167000 

1031  FORMAT!/,1  •••  ERROR  IN  INPUT  DATA.  DOUBLE  DEFINITION  OF  '.AB,1  02168C00 
•NUMBER  *,13,*.  RUN  TERMINATED  (SEE  FORTM ,  STATEMENT  NO.  269).*)  02169000 

1032  FORMAT!/,*  •••  NON-POSITIVE  POINT  NUMBER  IN  WALKING  TIME  CALC . ' . / 1 02 1 70C00 

•  NPTFM  •  ',14,';  NPTTO  •  ’,14,/,'  I  VALUE .618,/, '  RESULTS  N02171C00 


•QT  PREOICTABLE. 


THIS  MESSAGE  WILL  NOT  REPEAT,*) 


02172C00 


1033  FORMAT (' 

FROM  SECTION  18 

- 

TRANSFER  FLIGHT, 

IVALUE(2)' 

•  1 

M3, 

021 72'00 

•'  IV»LUE(3) 

•  M3) 

02172200 

1050  FORMAT (1  HI 

.///.(2X.64A2) ) 

02173C00 

1051  FORMAT! 

/ , 38X , ' 8  0 

A 

R 

D 

I 

N 

G 

G 

A 

T 

E 

F 

A 

C 

l 

L 

1 

T 

Y 

02174C00 

•  REPO 

R 

T* 

.///) 

02175000 

1052  FORMAT! 

/ . 36X , ' E  X 

P 

R 

E 

S 

s 

C 

H 

E 

C 

K 

I 

N 

F 

A 

C 

I 

L 

I 

T 02 1 70000 

•  Y  RE 

P 

0 

R  7 1 , /// ) 

02177C00 

1053  FORMAT! 

/ ,42X , ' S  E 

C 

U 

R 

I 

T 

Y 

F 

A 

C 

1 

L 

I 

T 

Y 

R 

E 

P 

0 

B021 78000 

*  T1 ,///) 

02179000 

1055  FORMAT! 

/ , 43X , ' C  U 

S 

T 

0 

M 

S 

F 

A 

C 

I 

L 

I 

T 

Y 

R 

E 

P 

0 

R 

T  02 1 80000 

*•.///) 

02 1 8 1  COO 

1061  FORMAT! 

/ , 34X , 'C  A 

R 

R 

E 

N 

T 

A 

L 

A 

G 

E 

N 

C 

Y 

F 

A 

C 

I 

L021B2000 

•  I  T  Y 

R 

E 

P  0  R  T',///) 

02183000 

1063  FORMAT! 

/ ,39X ,  'I  M 

M 

I 

G 

R 

A 

T 

I 

0 

N 

F 

A 

C 

I 

L 

I 

T 

V 

R 

E02184000 

•  PORT' 

.///) 

02185000 

1064  FORMAT! 

/ , 32X . ' T  I 

C 

K 

E 

T 

l 

N 

G 

6 

C 

H 

E 

C 

K 

I 

N 

F 

A 

C02 186000 

•ILITY  REPOR  T',///) 

1070  FORMAT!  / , 35X , *  S  MINUTE  SNAPSHOT  S',//) 

1071  FORMAT (IX. 'CLOCK  PAX  ENTERING  PAX  LEAVING  UAL  EXPRESS 
•TICKETING  BRANIFF  PAX  ENTERING  CONCOURSE 
•OURSE* ) 


02187000 
02188000 
UAL  02189000 
PAX  LEAVING  C0NC021 90000 
02190100 


*072  F0RMAT(1X, 'TIME 


TERMINAL 


TERMINAL 


PAX  FLOW 


PA02101000 
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•  X  FLOW  PAX  FLOW  . 13 , 614. 1 X , 714 ,// ) 

1073  FORMAT (IX, 15 .11 1,115, 113, 115, 1 14, IX, 7 14, IX. 714) 

1074  FORMAT (/,25X, '5  MINUTE  SNAPSHOTS 
•ESTION  AT  POINT  S',//) 

1083  FORMAT(5X, 'CLOCK  POINT') 

1083  FORMAT <5X, 'CLOCK  TIME ' , 1  OX, 'UNTD  COTL  FRNT  PR 

1  '  ) 

1076  FORMAT( IX. 'TIME  123456 

•  10  11  12  13  14  15  16  17  IB  19 

*23  24',//) 


02192000 

02193C00 

S  OF  CONG  02194000 
02195000 
02196C00 

PRK1  SECS  SECC  SEC002 196100 
02196200 

6789  02197000 

9  20  21  22  02198000 


3456789  02197000 

16  17  18  19  20  21  22  02198000 

021 90' 00 

1077  FORMAT (1X.I4.4X.24I5)  02199000 

1095  FORMAT ( 9X .24  1 5 )  02159*00 

1097  FORMAT ( 10015)  02199200 

1092  FORMAT (17X, • F  A  C  I  L  I  1  Y  UTILI2ATI0  N',30X,'Q  U  E  U  02200000 

•E  STATISTIC  S'.//)  02201000 

1094  F0I<1.1AT(4X. ‘FACILITY  NO.  OF  TOTAL  NO.  MAX.  NO.  OF  AVG.  NO.02202C00 

*  OF  AVG.  TIME  TOTAL  QUEUE  MAX.  QUEUE  AVG.  QUEUE  AVG.  02203000 

•TIME')  02204000 

1096  FORMAT (4X. '  NUMBER  AGENTS  OF  PATRONS  AGENTS  BUSY  AGENTS  B02205000 

•USY  PER  PATRON  ENTRIES  SIZE  SIZE  IN  QU022C6C00 

•  c'JE'.//)  02207000 

1075  FORMAT (7X.I3,7X,I2,7X,I4,10X.I2,11X,F5.2.BX,12, ' : ‘ , 12 , 1 1 X , 14, 1 0X .  02208C00 

*  I3.9X.FS.2.7X.I2. ' : ' ,12./)  02209000 

1078  FORMAT (///,10X,'(ALL  TIMES  IN  MINUTES ISECONOS )' )  02210000 

1079  FORMAT (/,1 OX,  '*•  INDICATES  UNDEFINED  (UNLIMITED)  NO.  OF  AGENTS.')  02211000 

1080  FORMAT  f / , '  WARNING.  TITLE  CARDS  LIMITED  TO  5.  ABOVE  TITLE  CAR022I2C00 

•0  WILL  NOT  BE  PRINTED.'./)  02213C00 

1081  FORMAT (8X.64A1 )  02214000 

1101  FORMAT!/, '  ERROR.  CHANGE  CARD  INCORRECT.  RUN  TERMINATED . ' /  02215000 

•  110/(10110))  0221 6000 

1999  FORMAT ( /// , '  *••  ERROR  END***  -  PROGRAM  TERMINA0221 7000 

•TING  DUE  TO  ERROR  COUNT  EXCEEDING  ‘ERRORS-.')  0221RC00 

1087  FORMAT (2515)  02218200 

1038  FORMAT (5X,I4,7X,F7.2,5X,F7.2,6X,F7.2,5X,F7.2)  02218500 

1089  FORMAT ( 1 6X , F7 . 2 , 5X , F7 . 2 , 6X . F7 . 2 ,5X, F7 . 2 )  02218C00 

1090  FORMAT (2K,!4,2X,F7.2,2X,F7.2,2X,F7.2,2X,F7-2,2X,F7.2,2X,F7.2,2X,  02218700 

XF7 . 2 , 2X , F7 . 2  )  02218e00 


AGENTS  OF  PATRONS 
ENTRIES  SIZE 


SIZE  IN  QU022C6C00 

02207000 

‘  ,12, 11X.I4, 10X,  02208C00 
02209000 
02210C0O 


0221  C'COO 
PROGRAM  TERMINA02217000 
0221RC00 
02218200 
02218500 
0221 8C00 

.2 ,2X , F7.2, 2X,  02218700 

02218e00 

02219000 

02220000 
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APPENDIX  B- 
ALSIM  DOCUMENTATION  ■ 


SUBROUTINES 


B-4-1/B-4-2 


FORTRAN  Subroutine  CLINK 
Assembler  Subroutines  CLINK1  and  CLINK2 

PURPOSE ; 

These  subroutines  perform  a  linking  operation,  allow¬ 
ing  GPSS  HELPA  blocks  to  operate  as  HELPC  blocks.  Both  block 
types  are  used  to  call  FORTRAN  subroutines,  however,  when  HELPC 
is  executed,  the  called  subprogram  obtains  routine  access  to 
GPSS  entities  and  Standard  Numerical  Attributes  contained  in  the 
B- through  G-operands.  HELPA  blocks  normally  only  provide  one 
way  communication  between  the  GPSS  main  program  and  the  FORTRAN 
subroutines. 

The  HELPC  procedure  requires  GPSS  to  construct  the 
entity  address  argument  list  in  a  specific  order  each  time  a 
HELPC  block  is  utilized,  then  GPSS  passes  control  to  the  FORTRAN 
subprogram.  This  argument  list  is  identical  for  all  HELPC  calls. 
Using  this  linking  procedure,  the  subroutines  CLINK,  CLINK1  and 
CLINK2  store  addresses  of  these  arguments  within  the  called 
FORTRAN  subprogram  and  eliminate  the  need  for  constructing  the 
argument  list  repeatedly.  Any  HELPA  call  executed  after  use  of 
these  subroutines  provides  the  required  access  to  argument  values 
for  two-way  communication  between  the  GPSS  main  program  and  the 
FORTRAN  subroutine. 

USAGE ; 

A  FORTRAN  subprogram  using  the  capabilities  of  these 
subroutines  must  contain  a  secondary  entry  point.  The  name  of 
this  entry  point  must  be  used  as  a  member  of  the  data  set  for 
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link  editing.  This  FORTRAN  subprogram  must  be  kept  resident  in 
main  memory  during  similation  through  use  of  the  LOAD  feature 
of  GPSS  and  loaded  under  the  name  of  the  secondary  entry  point. 
The  entry  point  name  must  be  used  as  an  alias  to  the  name  of  the 
subroutine.  For  example,  the  subroutine  LINKC  has  an  entry 
point  FORTM.  The  link  edited  member  name  would  appear  as  LINKC 
( FORTM) . 

The  linking  subroutines  described  here  are  used  to 
establish  the  required  argument  list  addresses  of  the  FORTRAN 
subroutine  by  a  two  step  process.  The  GPSS  program  calls  the 
FORTRAN  subroutine  CLINK  using  a  HELPC  block.  This  is  coded 
as  in  the  following  example; 

HELPC  CLINK,  1. 

Immediately  following  this  block  is  a  HELPA  call  to 
the  entry  point  of  the  FORTRAN  subprogram  requiring  access  to 
GPSS  entities  and  SNA  values.  Using  the  previous  member  names, 
an  example  of  this  HELPA  call  is  the  following; 

HELPA  FORTM,  1,  1. 

The  B-operand  of  the  HELPC  call  may  take  on  any  value, 
but  must  be  identical  to  the  C -operand  of  the  HELPA  block. 

The  purpose  of  using  these  values  is  to  designate  a  location  in 
the  GPSS  fullword  save  value  storage  area  to  temporarily  store 
the  argument  list  addresses. 

The  FORTRAN  subprogram  CLINK  contains  an  argument  list 
constructed  according  to  the  format  specified  by  GPSS.*  Addresses 
of  the  variables  used  as  arguments  will  be  stored  within  the 


B-4-4 


FORTRAN  subprogram  LINKC  and  be  available  for  reference  when 
the  subprogram  is  executed  through  the  entry  point  FORTM. 

The  following  example  illustrates  the  FORTRAN  statements 
required  to  utilize  the  linking  subroutines.  The  FORTRAN  sub¬ 
program  is  named  LINKC,  as  before,  and  contains  the  entry  point 
FORTM  as  shown. 

SUBROUTINE  LINKC  (IVALUE,  ISAVEF,  ISAVEH,  IFAC,  ISTO,  FSTO, 

*IQUE,  FQUE,  ILOG,  ITAB,  FTAB,  IUSE,  IUSEF,  FUSE,  IMAX,  IMAXB, 

* IMAXH ,  IMAXBH,  FSAVEL ,  IMAXL,  FMAXBL) 

REAL  *8  FQUE,  FUSE,  FTAB 

INTEGER  *2  ISAVEH,  ILOG,  IUSE,  IMAXBH. 

DIMENSION  IVALUE ( 6 ) ,  ISAVEF(2),  ISAVEH(2),  IFAC(2),  ISTO(2) ,  FST0(2), 
*IQUE(2),  FQUE ( 2 ) ,  IL0G(2),  ITAB(2),  FTAB ( 2 ) ,  IUSE(2),  IUSEF(2), 

*FUSE (2) ,  IMAX ( 2 ) ,  IMAXB(2),  IMAXH(2),  IMAXBH(2),  FSAVEL(2), 

♦IMAXL (2)  FMAXBL (2) 

RETURN 

ENTRY  FORTM  (IVALUE) 

• 

CALL  CLINK2 

Note  that  the  LINKC  argument  list  contains  the  B 
through  G -operands  in  IVALUE  and  the  GPSS  entity  reference  words, 
but  this  subroutine  is  not  called  directly  by  the  GPSS  program. 


Instead,  another  FORTRAN  subroutine,  CLINK,  is  called  by  a 
HELPC  block  in  the  GPSS  program.  The  CLINK  argument  list  is 
identical  to  that  of  LINKC.  Subroutine  CLINK  will  call  the 
assembler  program  CLINK1  to  store  the  CLINK  argument  list  in  a 
fullword  savevalue  area  of  GPSS  and  then  return  to  GPSS. 

After  CLINK  returns  to  GPSS ,  an  immediate  HELPA  call 
to  FORIM  results  in  a  call  to  CLINK 2 .  The  assembler  subroutine 
CLINK2  subsequently  calls  LINKC.  The  argument  addresses  in 
the  GPSS  fullword  savevalue  area  will  be  transferred  to  the 
LINKC  subprogram  and  stored,  making  them  accessible  every  time 
a  call  to  FORTM  is  performed.  CLINK2  returns  to  FORTM  which, 
in  turn,  returns  to  GPSS.  The  simulation  then  operates  with 
HELPA  blocks  calling  the  secondary  entry  point  of  the  FORTRAN 
subprogram  and  performing  the  same  functions  as  HELPC  blocks. 

RESTRICTIONS : 

These  subroutines  were  written  to  conform  with  code 
internal  to  the  DAGO 5  module  of  the  IBM  GPSS-V  program  product. 
Attempts  to  use  it  with  other  versions  of  GPSS  may  yield  un¬ 
predictable  results. 

Subroutine  LINKC  violates  the  constraint  that  a 
FORTRAN  subroutine  may  not  call  itself  or  any  other  subroutine 
which  subsequently  calls  it.  A  FORTRAN  compiler  more  sophisticated 
than  the  IBM  G-l,  release  2.0  version  may  prohibit  this  operation. 

Fullword  savevalues  used  to  store  the  argument  list  of 
CLINK  should  not  contain  information  for  retention  prior  to 
calling  CLINK.  The  contents  of  this  area  are  not  retained  by 
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any  of  these  subroutines . 


PROGRAM  LOGIC: 

CLINK 

The  subprogram  CLINK  contains  an  argument  list  built 
by  GPSS  which  references  variables  in  a  specified  order  and 
which  must  be  stored  in  a  GPSS  savevalue  area.  Subroutine 
CLINK  calls  assembler  subprogram  CLINK1  to  perform  this  storage 
operation.  After  CLINK1  returns  to  CLINK,  this  subroutine 
returns  to  the  GPSS  main  program. 

PROGRAM  LOGIC: 

CLINK1 

This  program  saves  all  registers  except  13  and 
designates  12  as  the  base  register.  The  GPSS  save  area  address 
is  obtained  from  the  CLINK  save  area  by  displacing  register  13  by 
4  bytes.  The  contents  of  GPSS  registers  1  and  10  are  obtained  at 
locations  24  and  60  bytes  into  the  GPSS  save  area  and  loaded 
into  registers  10  and  11,  respectively.  Register  10  then  contains 
the  address  of  a  25  word  table  established  by  GPSS.  The  starting 
address  of  GPSS  control  words  is  found  at  a  location  24  bytes 
within  this  table.  This  address  is  loaded  into  register  10. 

A  displacement  of  1044  bytes  from  register  10  contents  provides 
the  address  of  the  starting  location  of  GPSS  fullword  savevalues. 
This  address  is  next  loaded  into  register  10  for  later  use  in 
locating  am  area  to  store  the  CLINK  argument  list. 

The  GPSS  argument  list  address  was  obtained  from  GPSS 
register  1  and  is  now  contained  in  register  11.  Contents  stored 
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at  this  address,  which  are  the  address  of  the  B  operand  of  the 
GPSS  HELPC  call,  are  loaded  into  register  2.  The  value,  N,  of 
the  B  operand  is  subsequently  loaded  into  register  2  and  the 
contents  are  shifted  left  by  2  bits.  This  value  is  added  to 
the  address  in  register  10.  The  resulting  address  used  to 
store  the  argument  list  then  begins  at  a  location  N  words  into 
the  fullword  savevalue  storage  area. 

Addresses  of  the  CLINK  argument  variables,  starting 
with  IVALUE ,  are  loaded  into  registers  0  through  9.  These 
addresses  are  stored  in  locations  beginning  at  the  address 
indicated  in  register  10.  Subsequent  load  and  store  instructions 
place  the  argument  addresses  in  21  contiguous  fullword  savevalue 
locations . 

The  program  executes  a  RETURN  macro  instruction  to  re¬ 
store  all  registers  except  13  from  the  CLINK  save  area,  then 
branches  back  to  CLINK. 

PROGRAM  LOGIC: 

CLINK2 

Assembler  subroutine  CLINK2  is  called  by  the  FORTRAN 
subprogram  LINKC  from  a  location  following  FORTM,  the  secondary 
entry  point.  Subroutine  CLINK2  subsequently  calls  the  FORTRAN 
subprogram  LINKC,  which  contains  the  entry  point  and  the  call 
to  CLINK2. 

CLINK2  executes  the  SAVE  macro  to  store  the  contents  of 
all  registers  except  13  and  declares  12  as  the  base  register. 
Register  11  is  loaded  with  the  address  of  the  FORTRAN  subprogram 


LINKC ,  which  contains  the  entry  point  and  the  call  to  CLINK2. 

CLINK2  executes  the  SAVE  macro  to  store  the  contents 
of  all  registers  except  13  and  declares  12  as  the  base  register. 
Register  11  is  loaded  with  the  address  of  the  FORTRAN  subprogram 
save  area  from  register  13.  The  starting  address  of  an  18 
fullword  save  area,  SAVEA,  is  loaded  into  register  13.  The  address 
of  SAVEA  is  stored  8  bytes  into  the  FORTRAN  subprogram  save  area 
and  the  FORTRAN  subprogram  save  area  starting  address  is  stored 
4  bytes  after  the  address  SAVEA.  The  address  of  the  FORTRAN 
subprogram  save  area  is  also  stored  in  the  first  word  of  the  19 
fullword  storage  area  FORTSAVE.  The  contents  of  the  FORTRAN 
save  area  are  also  stored  in  the  remaining  18  words  of  FORTSAVE. 

The  starting  address  of  the  GPSS  program  save  area  is 
then  obtained  from  the  location  4  bytes  beyond  the  start  of  the 
FORTRAN  save  area  and  loaded  into  register  11.  The  contents  of 
GPSS  register  1,  the  GPSS  argument  list  starting  address,  are 
obtained  and  loaded  into  register  1  from  the  GPSS  save  area. 

The  address  of  the  first  argument,  the  B-operand,  is  obtained 
from  the  location  specified  by  register  1  and  is  loaded  into 
register  1.  The  value  of  the  C -operand  is  then  loaded  into 
register  1  from  the  location  4  bytes  beyond  the  address  of  the 
first  argument.  Register  1  contents  are  then  shifted  left  by 
2  bytes. 

The  GPSS  program  savevalue  area  is  again  accessed  and 
the  contents  of  GPSS  register  10  are  loaded  into  register  10. 

CLINK2  then  obtains  the  starting  address  of  fullword  savevalues 
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in  the  manner  identical  to  CLINK1  and  places  it  in  register  10. 

The  CLINK  argument  list  address  in  the  fullword  savevalue  area 
is  obtained  by  adding  registers  1  and  10  and  placing  their  sum 
in  register  1. 

Because  CLINK2,»-an  assembler  program,  calls  the 
FORTRAN  subprogram  LINKC,  a  branch  to  IBCOM  is  performed  to 
provide  a  traceback  capability  if  the  program  terminates  when 
the  FORTRAN  subprogram  is  operating.  Upon  return  from  IBCOM, 
the  program  branches  to  the  FORTRAN  subprogram,  LINKC. 

The  fullword  savevalue  storage  address  used  for  storing 
the  CLINK  address  list  is  contained  in  register  1  at  this  time. 

The  argument  variables  are  identical  to  those  of  LINKC.  When 
LINKC  is  called,  the  SAVE  macro  is  executed  and  this  address  is 
saved  with  other  register  contents  in  the  save  area,  SAVEA. 

The  FORTRAN  compiler  also  obtains  the  argument  list  address 
stored  in  the  GPSS  fullword  savevalue  area  from  register  1  and 
then  stores  the  addresses  of  the  arguments  in  contiguous  storage 
locations  within  the  FORTRAN  subprogram  LINKC.  After  performing 
this  storage  function,  control  is  passed  back  to  CLINK2.  The 
fullword  savevalue  area  used  to  store  the  argument  list  is  no 
longer  required  for  that  purpose  and  is  made  zero  through  a 
series  of  load  multiple  and  store  multiple  instructions. 

The  address  of  the  FORTRAN  subprogram  save  area, 
contained  in  the  first  word  of  FORTSAVE,  is  placed  in  register  11. 
The  contents  of  FORTSAVE,  established  by  CLINK2  to  store  the 
FORTRAN  subroutine  save  area,  are  placed  in  the  FORTRAN  subroutine  • 


B-4-10 


save  area.  Register  13  is  loaded  with  the  address  of  the 
FORTRAN  subprogram  save  area  from  the  second  word  of  the 
CLINK2  save  area,  SAVEA.  The  program  executes  a  RETURN  macro 
to  restore  registers  from  the  FORTRAN  subprogram  save  area  and 
returns  control  to  the  FORTRAN  subprogram. 
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ASSEMBLER  SUBROUTINE  AN  LINK 


PURPOSE: 


This  subroutine  provides  a  method  for  passing  numerical 
values  of  GPSS-V  mnemonics  used  in  the  Airport  Landside  simulation 
model  to  supporting  FORTRAN  subroutines  during  program  execution. 
This  feature  allows  development  of  FORTRAN  subprograms  in¬ 
dependently  without  reference  to  absolute  values  assigned  by  the 
operation  of  GPSS-V.  Data  for  output  under  FORTRAN  format  control 
is  also  passed  from  GPSS-V  through  mnemonic  linking.  Types  of 
information  transmitted  are:  savevalues,  GPSS  entity  identifiers, 
numbers  of  columns  of  halfword  matrices  and  GPSS  program  locations. 


USAGE: 


An  explicitly  numbered  GPSS-V  list  function  containing 
mnemonics  to  be  passed  must  be  established  after  the  last  mnemonic 
referenced.  A  FORTRAN  CALL  statement  to  MNLINK  must  contain  the 
absolute  function  number  as  the  first  argument.  The  remaining 
arguments  are  positionally  identified  with  GPSS  mnemonics 
appearing  on  the  list  as  Y  values.  It  is  desirable,  though  not 
necessary,  to  use  similar  or  identical  arguments  and  Y  list  names. 
The  lists  may  be  expanded  indefinitely. 

The  list  function  is  placed  near  the  end  of  a  GPSS-V 
program,  a.s  illustrated  in  the  following  example: 


1  FUNCTION  PHI,  L4 
,  CMH01/,.  CMH02/,  CML02/ ,  CLKXH 
START  1 , , , 1 
END 

A  HELPA  or  HELPC  block  transfers  control  to  the  FORTRAN 
subprogram.  Generally,  the  mnemonic  link  is  activated  by  the 
first  FORTRAN  call  of  the  simulation.  Contained  in  the  FORTRAN 
instruction  set  is  the  call  to  MNLINK,  as  shown: 

CALL  MNLINK (1 ,  CMH01,  CMH04 ,  CML02 ,  CLKXH). 

The  numerical  value  1  of  the  first  argument  is  in 
agreement  with  the  GPSS-V  identification  number  of  the  list 
function.  After  the  return  from  MNLINK,  FORTRAN  argument  names 
appearing  in  the  CAL  statement  have  the  absolute  values  of 
GPSS-V  names  appearing  in  corresponding  positions  of  the 
function . 
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RESTRICTIONS : 


1.  All  member  names  of  the  argument  list  must 
be  FORTRAN  fullword  integers. 

2.  Mnemonics  appearing  in  the  list  function 
must  be  unique  names,  i.e.  each  mnenomic  must  be  used  for 
only  one  purpose. 

3.  The  FORTRAN  calling  program  must  be  kept 
loaded  with  the  GPSS  program  during  the  simulation  or 
MNLINK  must  be  called  each  time  the  FORTRAN  subroutine 
is  loaded. 

4.  The  subroutine  was  written  to  conform  with 
code  internal  to  the  DAGO 5  module  of  IBM  GPSS-V. 

Attempts  to  use  this  assembly  program  with  other  versions 
of  GPSS-V  may  yield  unpredictable  results. 


PROGRAM  LOGIC: 


The  MNLINK  subroutine  executes  the  SAVE  macro  to  retain 
contents  of  all  registers  except  13  and  specifies  12  as  the  base 
register.  The  FORTRAN  save  area  address  is  obtained  from  register 
13.  The  second  word  of  the  area  contains  the  address  of  the 
GPSS-V  save  area  and  is  loaded  into  register  10.  From  the  GPSS 
save  area,  contents  of  GPSS  registers  2  and  3  are  placed  in  the 
corresponding  program  registers.  Contents  of  GPSS  registers  10 
and  11  are  also  loaded  into  MNLINK  registers  10  and  11.  This 
is  performed  to  locate  a  GPSS  25  word  table  and  to  allow  entry 
into  the  GPSS  subroutine  UNFLOT.  In  addition,  register  14 
contents  are  made  4096  greater  than  those  of  register  2  as 
required  for  entry  into  GPSS  routines. 

The  25  word  table  established  by  GPSS,  with  a  starting 
address  in  register  10  contains  the  starting  address  of  UNFLOT. 

A  displacement  of  80  bytes  into  the  list  points  to  the  starting 
address  of  the  UNFLOT  routine.  This  address  is  placed  in  reg¬ 
ister  7  and  subsequently  in  the  fullword  storage  defined  as 
UNFLOT . 


The  address  of  GPSS  control  words  is  contained  in  the 
table  at  a  displacement  of  24  bytes.  These  control  words  provide 
the  starting  address  of  GPSS  entities.  A  displacement  of  1052  bytes 
in  the  control  word  area  provides  the  starting  address  of 
functions.  Register  10  is  loaded  with  this  address. 
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The  number  of  the  function  is  the  first  entry  of  the 
FORTRAN  argument  list  and  is  located  at  the  address  contained 
in  recrister  1.  The  function  number  stored  at  this  address  is 
loaded  into  register  6. 

Because  each  function  occupies  32  bytes,  apart  from 
Y  values,  a  left  shift  of  the  function  number  in  register  6 
by  5  bits  allows  indexing  of  the  function  addresses.  After 
the  left  shift,  the  required  list  function  address  is  located 
by  adding  registers  6  and  10.  The  number  of  points  or  mnemonics 
is  located  12  bytes  into  this  function  area.  The  value  at  this 
address  is  placed  in  register  6.  The  starting  address  of  Y 
values  is  contained  in  the  first  byte  and  is  loaded  into  register 
10. 


A  value  of  four  is  stored  in  register  7  to  increment 
registers  1  and  10  through  the  respective  argument  list  and  Y 
value  addresses.  Register  1  is  pointed  to  the  second  word 
of  the  argument  list.  Register  2  is  established  as  a  floating 
point  register  and  the  contents  are  zeroed, 

A  loop  to  process  the  word  list  begins  at  the  address 
NEXTPT .  Register  4  is  first  pointed  to  the  address  of  the 
second  word  of  the  argument  list  and  register  2  is  loaded  with 
the  value  of  the  first  Y  point.  The  GPSS  subroutine  UNFLOT  is 
called  to  convert  the  floating  point  Y  value  of  the  list  function 
contained  in  register  2  to  an  integer. 

The  integer  portion  of  the  value  returned  by  UNFLOT 
is  contained  in  register  8  and  the  fraction  portion  in  number 
9.  The  value  in  register  9,  being  zero,  is  ignored.  The 
register  8  result  is  stored  in  the  argument  list  location 
specified  in  register  4.  Thus  the  absolute  values  of  the 
entities  contained  in  the  link  function  are  stored  in  the 
MNLINK  argument  list  locations  for  later  reference. 

The  subroutine  tests  for  the  end  of  the  argument  list. 

If  another  mnemonic  is  to  be  linked,  registers  1  and  10  are 
incremented  by  4  bytes.  The  list  function  length  is  decre¬ 
mented  by  one  in  register  6  and  compared  to  zero.  If  register 
6  is  greater  than  zero,  the  program  returns  to  NEXTPT  where 
register  4  is  pointed  to  the  next  address  in  the  agrument 
list,  and  register  2  is  loaded  with  the  value  of  the  next  Y 
point.  If  register  4  has  a  negative  sign  bite,  indicating  the 
argument  list  end,  the  program  restors  the  general  registers 
and  returns  to  the  FORTRAN  callinc  location. 


B-4-25 


MNLINK 


PLACE  locatio;: 
OF  FUNCTIONS 
|  IN  RIO 
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Assembler  Subroutine  XCODE 


1 


PURPOSE: 

This  subroutine  permits  FORTRAN  programs  to  perform 
in-core  read  and  write  operations .  XCODE  provides  the 
capability  for  rereading  input  data^  and  is  similar  in  this 
respect  to  the  READRE  routine  available  at  many  360/370 
installations.  However,  because  it  operates  on  arrays  in 
main  storage  instead  of  on  I/O  buffers,  flexibility  may  be 
attained  in  performing  reformatting  operations.  A  particular 
example  of  this  application  to  NAMELIST  data  is  used  in  the 
Airport  Landside  Simulation  Model. 

USAGE : 

Subroutine  XCODE  requires  the  designation  of  a  data 
set  reference  number  and  an  array  to  act  as  a  buffer  area. 

The  data  set  must  not  be  identified  by  a  DD  card.  The  buffer 
area  array  must  be  large  enough  to  accomodate  all  read  or 
write  operations  involving  the  designated  data  se5-. 

XCODE  must  be  called  prior  to  each  read  or  write 
operation  involving  the  designated  data  set.  The  calling 
statement  has  the  following  form: 

CALL  XCODE  (array  name,  length  of  I/O  operation  in  bytes). 

The  following  example  illustrates  a  use  of  XCODE. 

An  80-column  data  card  is  read  under  an  A  format  into  the  array 
ICARD.  The  characters  are  subsequently  written  into  the  array, 
BUFFER,  and  reread  from  this  array  under  a  NAMELIST  format. 
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Character  data  is  used  to  test  for  data  card  type  and  to 
place  the  NAMELIST  special  form  characters  at  the  beginning 
and  end  of  the  record.  Two  card  types,  PARM  and  AIRLINE, 
are  shown  in  this  example.  For  each  of  these,  a  call  is  made 
to  XCODE  with  the  arguments  BUFFER  and  buffer  size  80.  After 
the  return  to  FORTRAN,  a  WRITE  statement  places  the  ICARD  data 
into  the  BUFFER  array. 

A  subsequent  call  is  made  to  XCODE  with  PUFFER  and  84 
as  the  array  and  buffer  size  arguments,  respectively.  The 
ensuing  READ  statement  uses  the  21  words  of  BUFFER  to  perform 
a  NAMELIST  read  operation.  Device  10  is  not  specified  by  a 
DD  statement. 

DIMENSION  ICARD  (20) ,  BUFFER  (21) 

DATA  NAMEPA,  NAMEAL,  N AMEND/ '  &PA',  '  &AL ' ,  ' &END ' / 
DATA  IPARM,  IARLIN ,  IBLANK/ ' PARM ' ,  'AIRL',  '  '/ 

NAMELIST/P A/BOARDT,  GREET,  WWGATE ,  GRGATE ,  CRBCHK 
NAMELIST /AL/LINES ,  EPCURB,  BUSTOP,  EXPCHK 
BUFFER  (21)  =  NAMEND 
101  READ  (5,  1000)  ICARD 
1000  FORMAT  (20  A4 ) 

IF  (ICARD  (1).  EQ.  IPARM)  GO  TO  1 
IF  (ICARD  (1) .  EQ.  IARLIN)  GO  TO  2 

1  ICARD  (1)  =  NAMEPA 

CALL  XCODE  .(BUFFER,  80) 
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WRITE  (10,  1000)  ICARD 
CALL  XCODE  (BUFFER,  84) 
READ  (10,  PA) 


2  ICARD  (1)  =  NAMEAL 
ICARD  (2)  =  BLANK 
CALL  XCODE  (BUFFER,  80) 

WRITE  (10,  1000)  ICARD 
CALL  XCODE  (BUFFER,  84) 

READ  (10,  AL) 

Input  data  cards  for  this  example  are  shown  below. 

Card  identifiers  do  not  require  the  NAMELIST  spec. al  form, 
but  only  the  literal  symbols  PARM  and  AIRLINE.  Data  items 
are  treated  as  keyword  parameters  using  variable  names  identified 
by  NAMELIST  statements.  A  blank  separates  card  identifiers  and 
other  symbols.  Columns  1  through  80  are  available  for  card 
identification  plus  data. 

PARM  WWGATE  =  19,  GRGATE  =  12,  GREET  =43 
AIRLINES  LINES  =  1,  EPCURB  =  3,  EXPCHK  =  70 

PROGRAM  LOGIC: 

XCODE 

The  subroutine  declares  15  as  the  base  register  and 
saves  registers  14  through  3  in  the  FORTRAN  calling  program 
save  area.  The  addresses  of  the  two  calling  arguments  are  obtained 
from  the  argument  list  address  contained  register  1  and 
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loaded  into  registers  2  and  3  respectively.  The  value  of  the 
second  argument,  the  buffer  size,  is  obtained  from  the  address 
contained  in  register  3  and  placed  in  that  register.  Register 
2  contains  the  starting  address  of  the  array  BUFFER.  The  contents 
of  registers  2  and  3  are  stored  in  the  2  fullword  storage  area 
SUFFADDR. 


The  program  then  places  the  entry  point  address 
XC0DE2  in  register  1,  the  address  CLOAD  in  register  3,  and 
branches  to  CLOAD.  Register  3  is  declared  the  base  register 
and  the  address  of  IBCOM  is  placed  in  register  15  to  satisfy 
base  register  requirements  in  IBCOM.  The  program  places  a 
hexidecimal  50  in  the  location  74  bytes  within  IBCOM  thereby 
changing  the  IBCOM  instruction; 


to  become, 


L  1 , VFIOCS 
ST  1, VFIOCS 


The  program  executes  the  second  instruction  and 
stores  XCODE2  at  the  address  VFIOCS.  The  LOAD  instruction  is 
restored  with  a  second  MOVE  IMMEDIATE  instruction.  XCODE 
proceeds  back  to  the  branch  instruction  where  it  restores 
registers  14  to  3  from  the  save  area,  zeroes  out  register  15 
and  returns  to  the  FORTRAN  subprogram. 

The  next  FORTRAN  WRITE  or  READ  instruction  is  processed 
by  IBCOM.  At  some  point  during  IBCOM  execution,  a  branching 
to  the  address  contained  in  VFIOCS  results  in  a  branch  to 
XCODE2  because  of  the  previous  substitution. 


At  XC0DE2  contents  of  register  4  are  saved  at  SAVEAREA. 


The  address  of  XC0DE2  is  loaded  into  register  4  from  register 
1.  Register  4  is  declared  the  base  register. 

Register  0  contains  an  address  constant  from  IBCOM. 

This  value  is  loaded  into  register  1.  Contents  of  storage  one 
byte  beyond  the  location  indicated  by  register  1  are  tested 
by  a  test  under  mask  instruction.  If  the  pass  through  the 
XC0DE2  section  arises  from  a  FORTRAN  WRITE  statement,  branching 
to  location  OUTPUT  is  executed.  At  this  location,  register  2 
is  loaded  with  the  starting  address  of  BUFFER  bytes  to  be 
written  onto.  The  first  byte  of  BUFFER  is  blanked  by  a  hex  ’40'. 
Subsequent  bytes  are  blanked  by  decrementing  register  3  twice 
and  executing  the  MVC  instruction  at  DMOVE .  This  operation  is 
performed  on  the  array  BUFFER,  up  to  a  limit  of  register  3  con¬ 
tents  plus  one  times.  Register  3  is  then  incremented  by  two  to 
again  contain  the  number  of  BUFFER  bytes  specified  for  writing. 

At  RETURN,  the  program  restores  register  4  and  places  the  IBCOM 
arguments  in  register  1.  A  branch  to  6  bytes  beyond  register  1 
contents  returns  control  to  IBCOM,  where  writing  of  input  data 
into  BUFFER  is  completed. 

A  FORTRAN  READ  statement  also  causes  branching  to 
XCODE2  from  IBCOM.  However,  the  program  does  not  branch  to 
OUTPUT.  Instead,  the  program  loads  the  address  of  FIOCS  into 
register  1  and  the  address  of  CLOAD  into  register  3.  XCODE 
branches  to  CLOAD  and  declares  register  3  as  the  base  register. 
The  address  of  FIOCS  is  restored  to  IBCOM  by  performing  the 
instruction  at  CLOAD  and  subsequent  instructions. 
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Following  this  replacement,  the  program  branches 
back  to  place  the  two  fullwords  in  BUFFADDR  into  registers 
2  and  3.  The  program  branches  to  RETURN  and  subsequently 
returns  control  to  IBCOM  for  execution  of  the  in-core  read 
under  namelist  format  control. 
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RESTORE  R3  TO 
BUFFER  SIZE 
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MEMBER  NAME  XCOOE 
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FORTRAN  FUNCTION 


MHBASE  MXBASE.  'ML BASE 


PURPOSE: 

These  functions  provide  the  base  addresses  of  GPSS-V  half¬ 
word,  fullword  and  floating  point  matrices  used  in  the  FORTRAN 
section  of  the  airport  landside  simulation  model.  Computed 
base  addresses  are  used  by  FORTRAN  statement  functions  to 
compute  addresses  of  GPSS-V  matrix  elements  for  data  insertion 
and  extraction.  The  use  of  this  function  or  a  similar  algorithm 
for  referencing  GPSS  matrices  by  a  FORTRAN  program  is  neces¬ 
sitated  by  the  incompatibility  of  GPSS  internal  storage  with 
the  FORTRAN  array  structure.  This  subprogram  and  associated 
FORTRAN  statement  functions  permit  addressing  of  program 
matrix  elements  by  row  and  column  symbols. 

USAGE : 

This  subroutine  is  link  edited  with  the  primary  name  MHBASE 
and  aliases  MXEASE  and  MLBASE.  The  only  calls  to  this 
function  occur  on  the  first  HELPC  call  from  GPSS .  Each 
matrix  requires  a  separate  call  with  the  following  syntax: 

MHBASE  (IMAXH, 

FORTRAN  variable  =  MXBASE  (IMAX,  Matrix  No.,  No.  of  cols.) 

MLBASE  (IMAXL, 

Variables  IMAXH,  IMAX  and  IMAXL  are  arguments  passed  from  GPSS 
when  a  HELPC  call  is  made.  The  matrix  number  is  specified 
explicitly  for  each  call  to  the  function.  The  number  of  columns 
is  initially  specified  in  the  GPSS  program  by  an  SYN  statement. 

The  GPSS  symbol  used  in  the  statement  is  identified  with  the 
FORTRAN  variable  representing  the  number  of  columns  in  the 
.matrix  by  the  mnemonic  link  function.  The  value  assigned  to 
the  GPSS  symbol  must  agree  with  the  number  of  columns  specified 
in  the  GPSS  matrix  definition  statement. 

As  an  example,  a  matrix  to  be  utilized  in  the  simulation  is 
halfword 'matrix  number  2,  consisting  of  15  rows  and  7  columns. 

*The  number  of  columns  is  identified  with  the  symbol  CMH02  by 
the  following  GPSS  SYN  statement: 

CMH02  SYN  7  NO.  OF  COL  -  MH2 

The  GPSS  matrix  definition  statement  establishing  halfword 
matrix  2  is  the  following: 


2  MATRIX  MH  ,  15,  7 


2 


The  mnemonic  link  function  must  cor-  :n  a  reference  to  CMHC2; 


1  FUNCTION  PHI,  L  20  MNEMONIC  LUCK  FUNCTION, 
CMH03 


CMKOl ,  /CMH02  ,  / 


A  positional  correspondence  between  CMH02  and  the  variable 
ICNH02  is  established  by  the  FORTRAN’  call  to  'MNLINK 

CALL  MNLINK  (1,  ICNHOl,  ICNH02,  ICNH03 . ) 

The  call  to  MHBASE  to  establish  the  base  address  of  MH2  is 
illustrated  by  the  following  FORTRAN  statement: 

MH02B  =  MHBASE  ( IMAXH ,  2,  ICNH02) 

This  base  address  is  used  by  the  following  FORTRAN  statement 
function  to  calculate  the  address  of  the  element  in  the  IR  row, 
IC  column  of  halfword  matrix  2. 


MH2  (IR,  IC)  =  MH02B  +  ICNH02*IR  +  IC 
RESTRICTIONS : 

Standard  mnemonics  and  indexing  constants  used  in  coding  HELPC 
routines  are  used  in  this  function.  This  subprogram  requires 
that  versions  of  GPSS-V  used  for  simulation  contain  these  con¬ 
ventions. 


PROGRAM  LOGIC: 

The  subprogram  name  MHBASE  is  used  to  designate  this  function. 
The  calling  argument  IMAXH  is  dimensioned  1  as  are  IMAX  and 
IMAXL.  The  base  address  MHBASE  of  halfword  matrix  N  is 
calculated  by  the  following  expression: 

MHBASE  =  IMAXH  (6*N-5)/2  -  ICN  -  1 

The  variable  ICN  represents  the  number  of  columns  in  halfword 
matrix  N. 

At  entries  MXBASE  and  MLBASE ,  base  addresses  of  fullword  and 
floating  point  matrices  resDectively  are  calculated  using  ex¬ 
pressions  of  the  same  form.  After  each  base  address  calcula¬ 
tion^  the  program  returns  to  the  calling  FORTRAN  subprogram. 
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FUNCTION  MHBASE  ( IMAXH , N , ICN ) 


COMPUTE 

MHBASE 


RETURN 


ENTRY  MXBASE  (IMAX,N,ICN) 


ENTRY  MLBAHE  (IMAXL ,N , ICH) 


!  COMPUTE 
I  MLBASE 
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ASSEMBLER  SUBROUTINE  ASSIGN/LOGIC/PVAL/  FPVAL 


PURPOSE : 


This  subroutine  allows  a  FORTRAN  subroutine  called 
by  a  GPSS-V  HELPC  or  HELPA  block  to  perforin  the  function  of 
the  GPSS  ASSIGN  block.  Furthermore,  this  subroutine  executes 
the  set  and  reset  functions  of  the  GPSS  LOGIC  block  and  obtains 
parameter  values  directly  from  the  currently  active  GPSS  trans¬ 
action.  This  subroutine  is  called  by  the  FORTRAN  subroutine. 


USAGE: 


This  subroutine  must  be  link  edited  with  the  name 
ASSIGN  and  aliases  LOGIC,  PVAL  and  FPVAL.  The  FORTRAN  sub¬ 
routine  ARGERR  must  be  a  member  of  SYS1.  FORTLIB  or  in  a  user 
library  concatenated  with  SYS1.  FORTLIB  at  link  edit  time. 

The  calling  FORTRAN  subprogram  must  contain  the  follow¬ 
ing  statements: 

INTEGER  *  2  LR,  LS,  PB ,  PF,  PH,  PL 

INTEGER  PVAL 

DATA  LR,  LS,  PB ,  PF,  PH,  PL/’LR',  'LS',  ’PB',  'PF',  'PH' 

'  PL '  . 

During  the  simulation  run,  the  active  GPSS  transaction 
calls  the  FORTRAN  subprogram  through  a  HELPA  or  HELPC  block. 
Parameters  of  that  transaction  are  assigned  values  by  using 
the  following  call  statements  in  the  FORTRAN  subprogram; 

CALL  ASSIGN  (parameter  number,  FORTRAN  variable  or 
constant,  parameter  type) . 

Multiple  assignments  and  mixed  parameters  are  valid. 

This  is  exhibited  in  the  following  example; 

CALL  ASSIGN  (1,  10,  PH,  3,  XRAY ,  PL,  1,  IVAL ,  PF,  5, 

3,  PB)  . 

When  a  logic  switch  requires  a  set  or  reset  condition, 
the  FORTRAN  program  executes  the  following  subroutine  call; 

CALL  LOGIC  (logic  set  (LS)/logic  reset  (LR) ,  switch 
number) 

Multiple  sets  and  resets  and  mixed  types  are  valid,  as 


shown  in  the  following  call  statement: 

CALL  LOGIC  (LS,  1,  LS ,  3,  LR,  4). 

When  a  parameter  value  of  the  active . transaction  is 
required,  the  FORTRAN  program  uses  the  functions  PVAL  or  FPVAL . 
The  statements  used  to  obtain  this  value  for. integer  parameters 
are : 

FORTRAN  variable  =  PVAL  (type,  parameter  number). 

For  floating  point  parameters,  the  value  is  obtained 

by  using  FORTRAN  variable  =  FPVAL  (PL,  parameter  number) 

The  valid  PVAL  function  parameter  types  are  PF,  PH,  or 
PB.  Floating  point  parameters,  PL,  are  evaluated  by  FPVAL. 

Only  one  parameter  may  be  referenced  in  a  statement.  The 
following  example  returns  the  value  of  PH  10  to  K: 

K=PVAL  (PH,  10) . 

An  equivalent  floating  point  example  returns  the  value 
of  PL 5  to  XK: 

XK-FPVAL  (PL,  5) . 

Errors  in  the  argument  lists  of  ASSIGN,  LOGIC,  FPVAL 
and  PVAL  cause  branching  to  subroutine  ARGERR,  where  statements 
indicating  the  problem  nature  are  written.  Upon  return  from 
ARGERR,  the  subroutine  with  the  faulty  argument  list  executes 
a  no-op  return  to  FORTRAN  without  interrupting  the  simulation. 
Three  errors  are  recognized: 

(1)  An  invalid  parameter  type  referenced  in  calling 
ASSIGN,  PVAL  or  FPVAL, 

(2 ) •  An  invalid  switching  operation  specified  in  a  call 

to  LOGIC 

(3)  An  attempt  to  assign  a  negative  number  to  an  integer 
parameter  when  calling  ASSIGN. 


RESTRICTIONS : 

This  subroutine  branches  to  code  internal  to  IBM  GPSS-V 
in  performing  these  functions.  Use  of  any  other  system  may 
produce  unpredictable  results  from  this  subroutine. 


PROGRAM  LOGIC  ASSIGN: 

The  program  declares  the  aliases  PVAL,  FPVAL  and  LOGIC 
as  entries  at  this  subroutine.  All  registers  except  13  are 
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saved  and  12  is  declared  the  base  register  for  this  subroutine. 
The  save  area  address  of  the  GPSS-V  main  proqram  is  obtained 
from  the  FORTRAN  calling  subprogram  save  area  at  the  address 
contained  in  register  13  plus  4  bytes.  Registers  2,  3,  10,  and 
11  of  ASSIGN  are  loaded  with  the  contents  of  the  corresponding 
GPSS  registers. 

The  constant  stored  at  STPVAL  is  tested  for  zero  to 
determine  if  ASSIGN  has  been  called  previously.  A  non-zero 
value  causes  branching  to  ASSIGNGO.  For  the  zero  value  con¬ 
dition,  the  program  obtains  the  addresses  of  the  GPSS-V  sub¬ 
routines  STPVAL  and  PRVAL .  These  addresses  are  stored  at 
locations  STPVAL  and  PRVAL  respectively. 

At  ASSIGNGO,  reqister  14  is  loaded  with  contents  of 
register  2  plus  4096  to  fulfill  a  condition  required  for 
operation  of  STPVAL. 

Register  10  is  loaded  with  the  address  of  GPSS-V 
control  words  from  a  25  word  table  established  by  GPSS  when 
the  FORTRAN  subprogram  is  called.  The  control  word  address 
will  be  used  later  to  locate  the  number  of  the  transaction 
currently  being  processed.  Register  9  is  loaded  with  the 
starting  address  of  STPVAL. 

Program  location  NEXTASGN  is  the  beginning  of  a  loop 
for  processing  the  ASSIGN  argument  list.  Register  1  initially 
contains  the  starting  address  of  this  list.  Locations  of  the 
first  three  entries,  which  are  parameter  number,  value  and 
type,  respectively,  are  loaded  into  registers  6  through  8. 

The  address  of  the  third  entry  is  retained  in  register  0. 
Contents  stored  at  the  addresses  contained  in  registers  6,  7, 
and  8  are  loaded  into  these  three  respective  registers. 

A  'test  for  a  floating  point  parameter  is  performed  by 
loading  the  character  stored  at  PL  into  register  4  and  comparing 
this  with  the  parameter  type  contained  in  register  8.  The 
program  branches  to  ASGNFLOT  if  a  floating  point  parameter  is 
present. 


Before  testing  integer  parameters  for  type,  a  test  of 
the  value  to  be  assigned  is  required,  because  fixed  point  con¬ 
stants  in  GPSS  block  statements  must  not  be  negative.  A  test 
is  performed  on  this  value,  which  is  contained  in  register  7. 

If  a  negative  quantity  is  found,  the  program  branches  to  NEGASSGN . 

When  the  value  is  zero  or  positive,  as  normally  expected, 
tests  for  halfword,  fullword  or  byte  parameters  are  performed  by 
loading  the  characters  stored  at  PH,  PF  or  PB  into  register  4  and 
comparing  these  with  the  contents  of  register  8.  The  program 
branches  to  ASGNHALF,  ASGNFULL  or  ASGNBYTE  for  each  respective 
character  type. 
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If  none  of  the  above  three  parameters  are  present 
in  register  8,  an  error  condition  is  recognized.  The  program 
places  a  value  1  in  register  8  and  continues  to  ASGERRET  to 
begin  an  error  indication  procedure  and  subsequent  return  to 
the  FORTRAN  calling  program. 

This  procedure  requires  branching  to  the  subprogram 
ARGERR.  At  ASGERRET,  the  address  of  the  FORTRAN  calling  pro¬ 
gram  save  area  is  loaded  into  register  10  from  register  13. 

An  ASSIGN  save  area  of  18  fullwords  starting  at  location 
SAVEAREA  is  defined.  Register  13  is  used  as  a  linkage  register 
and  is  loaded  with  the  address  of  SAVEAREA.  This  address  is 
also  stored  in  the  third  word  of  the  FORTRAN  calling  program 
and  the  address  of  the  FORTRAN  calling  program  is  stored  in  the 
second  word  of  SAVEAREA. 
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The  error  code  value  1,  contained  in  register  8,  is 
stored  at  ERRCODE  for  use  in  the  argument  list  when  ARGERR  is 
called.  The  address  of  the  argument  list  ARGLIST,  is  loaded 
into  register  1,  the  argument  list  linkage  register,  and  the 
program  branches  to  ARGERR.  Upon  return  to  ASSIGN,  the  add¬ 
ress  of  the  FORTRAN  save  area  at  SAVEAREA  +  4  is  loaded  into 
register  13.  Contents  of  registers  2  through  12  are  restored 
to  values  contained  when  the  FORTRAN  subprogram  called  ASSIGN. 
The  program  branches  back  to  the  calling  locations  in  the 
FORTRAN  subprogram  at  the  address  contained  in  register  14. 

For  those  parameter  values  previously  tested  and 
found  to  be  negative,  the  program  branched  to  NEGASSGN.  AT 
this  location  an  error  code  value  of  8  is  loaded  into  register 
8.  The  program  then  branches  back  to  ASGERRET  to  begin  the 
error  return  procedure. 

At  ASGNHALF ,  ASGNFULL  and  ASGNFLOT,  register  4  is 
loaded  with  the  respective  hexadecimal  constants,  10000000, 
0C000000  and  04000000,  and  a  branch  to  MASKOP  is  executed.  At 
ASGNBYTE,  register  4  is  loaded  with  the  hexadecimal  constant 
08000000.  The  program  continues  to  MASKOP. 

The  STPVAL  entry  conditions  for  register  6  are  ful¬ 
filled  by  the  OR  statement  at  MASKOP.  The  transaction  number 
is  placed  in  register  8  and  the  program  branches  to  STPVAL. 
Upon  returning  to  ASSIGN,  the  program  tests  for  the  last  ar¬ 
gument  list  'entry  by  examining  the  address  stored  in  register 
0  for  a  negative  sign  bit.  If  the  end  of  the  argument  list 
is  present,  the  program  branches  to  RETASSGN . 

The  program  continues  processing  the  argument  list  by 
adding  12  to  the  contents  in  register  1  and  branching  back  to 
NEXTASGN . 


At  RETASSGN  the  subprogram  executes  a  normal  return 
to  the  FORTRAN  calling  subprogram  by  executing  a  RETURN  macro. 


PROGRAM  LOGIC: 

PVAL  and  FPVAL 

This  section  of  the  subroutine  contains  two  entry 
points,  PVAL  and  FPVAL.  The  FPVAL  entry  is  located  at  the 
conclusion  of  PVAL.  FPVAL  establishes  base  registers,  stores 
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the  value  4096  at  the  storage  location  FLAG,  then  branches 
back  to  the  location  FORTSAVE  in  PVAL  to  begin  processing  the 
floating  point  parameter. 

The  PVAL  section  establishes  register  12  as  the  base 
register.  Zero  is  stored  in  the  fullword  location  FLAG.  At 
the  instruction  FORTSAVE,  the  program  locates  the  FORTRAN  save 
area,  then  loads  registers  2,  3,  10  and  11  with  the  corresponding 
GPSS  register  contents,  to  prepare  for  the  operation  of  GPSS 
subroutines  STPVAL  and  PRVAL.  The  initial  call  to  PVAL  obtains 
the  addresses  of  these  two  subroutines  and  stores  them  at  lo¬ 
cations  STPVAL  and  PRVAL  respectively.  Subsequent  calls  test 
for  a  non-zero  value  at  STPVAL  and  branch  to  PVALUEGO  on  this 
condition . 


At  PVALUEGO,  register  14  is  loaded  with  contents  of 
register  2  plus  4096  to  satisfy  a  GPSS  condition  for  entry  to 
STPVAL  and  PRVAL.  The  address  of  GPSS  control  words  is  loaded 
into  register  10  for  later  use  in  determining  the  active  trans¬ 
action  number.  The  addresses  of  the  parameter  number  and  type 
are  loaded  into  registers  5  and  6  from  the  argument  list  add¬ 
ress  in  register.  The  address  of  PRVAL  is  loaded  into  register 
9. 

The  parameter  number  and  type  are  loaded  into  registers 
6  and  8  respectively  from  their  storage  locations.  Register  8 
contents  are  tested  with  the  same  characters  as  those  in  ASSIGN 
to  determine  parameter  type.  Branching  to  PHALF,  PFULL,  PFLOAT 
and  PBYTE. is  executed  for  halfword,  fullword,  floating  point 
and  byte  parameter  types  respectively.  If  none  of  these  types 
are  found,  the  program  continues  into  an  error  return  area. 

The  error  code  is  given  a  value  2  and  the  program  executes  in¬ 
structions  identical  to  those  in  the  ASSIGN  error  return  pro¬ 
cedure  . 


At  PHALF,  PFULL  and  PFLOAT  locations  hexidecimal  con¬ 
stants  are  loaded  into  register  4,  then  the  program  branches 
to  MASKX.  At  PBYTE  the  program  also  loads  a  hexidecimal  constant 
into  register  5  and  continues  to  MASKX.  An  OR  instructions  at 
MASKX  places  hexidecimal  constants  in  bits  1-7  of  register  6  for 
branching  to  subroutine  PRVAL.  The  currently  active  transaction 
number  is  loaded  into  register  7. 

The  program  branches  to  the  PRVAL  start  location  con¬ 
tained  in  register  9.  Upon  return,  the  value  of  FLAG  is  tested 
for  a  zero.  If  FLAG  is  non-zero,  indicating  a  floating  point 
parameter,  the  program  branches  to  FLOATPT .  For  integer  parameters, 
the  program  loads  the  parameter  value  returned  from  FPVAL  in 
register  6  into  result  register  0,  then  branches  to  RETPVAL 
to  initiate  a  procedure  for  returning  to  FORTRAN. 
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At  FLGA.T??,  register  zero  is  declared  as  a  floating 
point  register  by  an  SDR  instruction.  The  parameter  value  is 
first  stored  at  VALUE,  then  loaded  into  result  register  0. 

The  program  continues  to  RETPVAL. 

At  RETPVAL  all  registers  except  0  and  1  are  restored. 

The  hexiaecimal  FF  flag  value  is  stored  at  the  fourth  word  of 
the  FORTRAN  save  area  to  indicate  a  return  condition.  The 
last  program  instruction  location  executes  branching  to  the 
FORTRAN  calling  program  return  location. 

PROGRAM  LOGIC: 

LOGIC 

The  LOGIC  section  establishes  register  12  as  a  base 
register,  then  obtains  the  address  of  the  GPSS  save  area  from 
the  FORTRAN  save  area.  Contents  of  registers  3,10  and  11  from 
the  GPSS  save  area  are  loaded  into  the  respective  LOGIC  program 
registers.  Register  10  contents,  plus  a  displacement  of  24 
bytes,  provide  the  address  of  GPSS  control  words  which  are 
subsequently  loaded  into  register  10.  A  displacement  of  1040 
bytes  beyond  the  control  word  address  provides  the  starting 
address  of  the  logic  switches  and  this  is  placed  in  register  9. 

The  loop  for  performing  logic  switch  setting  and 
resetting  begins  at  NXTLOGIC.  At  this  location,  addresses  of 
the  first  two  words  of  the  argument  list  are  loaded  into 
registers  6  and  7  respectively.  The  address  in  register  7  is 
saved  at  LOGRFPTX.  A  logic  set  or  reset  halfword  indicator 
and  the  logic  switch  number  are  loaded  into  reaisters  6  and  7 
respectively,  from  the  addresses  contained  in  those  two  registers. 
The  logic  switch  number  is  also  placed  in  register  4.  Register 
7  is  shifted  left  by  2  bits  and  register  4  by  1  bit.  The 
addition  of  these  in  register  7  provides  a  multiplication  by  6, 
the  basic  storage  byte  allocation  for  logic  switches.  This 
sum  is  also  placed  in  register  4.  Register  6  is  examined  to 
determine  if.  a  switch  set  or  reset  is  to  be  implemented  and 
branches  to  SET  or  RESET  if  the  respective  characters,  LS  or 
LR,  are  present.  If  the  argument  list  is  erroneous  and  contains 
neither  character,  the  program  assigns  a  value  of  3  to  the  error 
code  and  implements  procedures  identical  to  the  error  routine 
coding  in  ASSIGN. 

At  RESET,  register  0  is  zeroed.  A  value  of  4  is  added 
to  the  quantity  in  register  4  (6  *  switch  number)  and  the 
program  branches  to  SETRESET.  A  branch  to  SET  loads  the 
hexiaecimal  quantity  0014  into  register  0,  register  4  is  in¬ 
cremented  by  2  and  the  program  continues  to  SETRESET. 

The  indicator  for  a  reset  or  set  condition  is  contained 
in  register  0.  Tnis  halfword  is  stored  in  the  first  two  bytes 
of  the  logic  switch  storage  location  by  the  instruction  at 
SETRESET.  The  program  branches  to  the  GPSS  chain  maintenance 
area  at  1688  bytes  beyond  the  GPSS  base  address  contained  m 


reqister  11.  For  a  reset  condition,  the  contents  of  bytes 
5  and  6  are  loaded  into  register  7.  Register  8  contains  the 
storage  address  of  the  chain  holding  transactions  waiting  for 
a  reset  condition.  This  address  is  stored  at  bytes  5  and  6. 
When  a  logic  set  is  implemented,  contents  of  bytes  3  and  4  are 
loaded  into  register  7.  The  storage  location  of  the  chain 
holding  transactions  waiting  for  a  set  condition  is  stored  in 
bytes  3  and  4  from  register  8. 

The  argument  list  address  stored  at  LOGREPTX  is 
tested  for  a  negative  sign  bit.  When  this  occurs,  the  list 
is  ended  and  the  program  branches  to  LOGICRET.  The  program 
continues  by  adding  8  to  the  contents  of  register  1  and 
branching  back  to  NXTLOGIC.  At  LOGICRET  the  program  executes 
the  RETURN  macro  to  return  to  the  FORTRAN  calling  subprogram. 
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FORTRAN  SUBROUTINE  ARGERR 


PURPOSE : 

This  subroutine  displays  messages  when  errors  in  the  argument 
lists  of  assembler  subprograms  ASSIGN,  LOGIC,  FPVAL  and  PVAL 
are  detected.  Recognized  errors  are: 

1.  An  invalid  parameter  type  referenced  in  calling 
ASSIGN,  PVAL  or  FPVAL. 

2.  An  invalid  switching  operation  specified  in  a  call 
to  LOGIC. 

3.  An  attempt  to  assign  a  negative  number  to  an 
integer  parameter  when  calling  ASSIGN. 

USAGE : 

This  subroutine  is  link  edited  with  the  name  ARGERR.  Sub¬ 
routines  ASSIGN,  LOGIC, PVAL  and  FPVAL  call  this  subroutine 
using  the  argument  ERCODE  if  the  above  errors  occur.  When 
an  invalid  parameter  type  occurs  in  ASSIGN,  a  value  of  1  is 
stored  at  ERRCODE ,  then  ASSIGN  branches  to  ARGERR  with  this 
argument  value.  Invalid  parameter  types  in  PVAL  and  FPVAL 
both  produce  an  ERRCODE  value  of  2  before  branching  to  ARGERR. 
Calls  to  LOGIC  with  invalid  switching  operations  specified 
make  ERRCODE  equal  to  3  and,  lastly,  attempts  to  assign 
negative  numbers  to  integer  parameters  in  ASSIGN  are  given  an 
ERRCODE  value  of  8 . 

RESTRICTIONS : 

None 

PROGRAM  LOGIC: 

The  program  executes  a  computed  GO  TO  statement  and  branches 
to  the  appropriate  WRITE  statement  for  the  condition  specified 
by  the  argument  ERCODE.  After  execution  of  the  WRITE  state¬ 
ment,  the  program  returns  to  ASSIGN,  LOGIC,  FPVAL  and  PVAL 
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ASSEMBLER  SUBROUTINE  BAGS 


This  subroutine  provides  a  mechanism  to  simulate  the 
random  delivery  of  passenger  bags.  It  is  called  by  each  de¬ 
planing  passenger  transaction  with  one  of  the  argument  values 
specifying  the  number  of  bags  assigned  to  the  passenger  group. 
BAGS  assigns  a  random  integer  between  1  and  64  to  each  simula¬ 
ted  bag.  The  value  of  the  largest  random  number  assigned  to 
the  bags  of  the  group  is  retained  by  the  transaction  in  PH 3 . 
The  number  of  times  each  integer  occurs  is  recorded  in  the  64 
element  array,  MH7 .  When  all  transactions  from  a  flight  have 
completed  calling  BAGS,  elements  of  MH7  contain  the  number  of 
times  the  corresponding  ramdom  number  between  1  and  64  was 
generated.  The  sum  of  elements  of  MH7  is  identical  to  the 
number  of  bags  on  the  flight.  The  total  number  of  bags  for 
termination  passengers  is  stored  in  MHl  (PH2,14)  and  in  MH1 
(PHI, 15)  for  transfer  passengers.  The  GPSS  main  program  and 
FORTM  will  use  the  values  in  the  MH7  elements  to  simulate 
the  time  required  for  bag  delivery.  The  waiting  time  of  the 
passenger  transaction  will  depend  upon  the  number  of  simula¬ 
ted  bags  in  each  MH7  element,  the  delivery  rate  and  the 
highest  random  number  generated  for  the  transaction. 

Usage  -  This  subroutine  is  called  by  deplaning  passenger 
transactions  in  the  Deplaning  Passenger  Logic  Section  of  the 
GPSS  main  program.  A  HELP  block  performs  the  call  as  shown 
in  the  following  example: 
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HELP  BAGS,  PHI,  FN*PB14,  4,  3,  PBS. 

The  B- operand  defines  the  MH1  row  number  of  the  simu¬ 
lated  flight  deplaned  by  the  transaction.  The  C-operand 
specifies  the  bag  distribution  function  placed  in  PB14  and 
passes  the  value  selected  by  the  transaction  from  the  dis¬ 
tribution  to  BAGS.  The  D-  and  E-operands  specify  the  number 
of  the  byte  and  the  halfword  parameter,  respectively,  to 
place  the  number  of  bags  assigned  to  the  transaction  and 
the  maximum  random  number  generated  by  BAGS  for  the  trans¬ 
action.  The  F-operand  identifies  the  transaction  as  represen¬ 
ting  a  terminating  or  transfer  passenger  by  containing 
respective  values  of  1  or  2. 

For  the  above  example,  subroutine  BAGS,  returns  with 
the  number  of  bags  assigned  to  PB4  and  the  maximum  random 
number  generated  for  this  transaction  in  PH3 .  Elements  of 
MH7  are  incremented  by  each  of  the  transactions  associated 
with  the  flight  if  PB4  is  non-zero.  After  all  deplaning 
passenger  transactions  from  the  flight  have  completed  the 
use  of  BAGS,  the  flight  transaction,  operating  in  the 
Baggage  Unloading  Logic  Module,  executes  a  HELPA  call  to 
FORTM  to  inspect  MH7  and  place  information  about  the  matrix 
in  byte  parameters.  The  FORTM  program  resets  the  MH7 
elements  to  zero  values.  After  the  return  from  FORTM  occurs, 
the  flight  transaction  resets  logic  switch  DPL1C  to  allow 
deplaning  passenger  transactions  from  the  next  succeeding 
flight  to  execute  BAGS. 
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Restrictions  -  Subroutine  BAGS  branches  to  storage  locations 
internal  to  IBM  GPSS-V.  use  of  this  subroutine  with  other 
systems  may  lead  to  unpredictable  results. 

Program  Logic  - 

Subroutine  BAGS,  after  executing  the  SAVE  instruction  and 
declaring  register  12  as  the  base  register,  tests  for  the 
value  at  LINKADDR  for  zero  to  determine  if  the  subroutine 
has  been  executed  previously.  If  previously  used,  the 
program  branches  to  LINKED.  Otherwise  it  obtains  the  starting 
address  of  MH7  and  stores  it  at  the  address  LINKADDR. 

At  LINKED,  the  program  loads  the  value  4096  into  register 
14  then  adds  the  contents  of  register  2  to  register  14  to 
satisfy  an  entry  condition  'for  GPSS  subroutine  DRAND.  The 
B-through  F-operand  values  are  loaded  into  registers  4  through 
8,  then  stored  at  the  5  fullword  locations  starting  at  NORAND. 

The  value  of  the  C-operand  is  loaded  into  register  4  and 
tested  for  a  zero  value.  If  this  occurs,  no  bags  are 
simulated  and  the  program  returns  to  GPSS. 

For  a  non-zero  C-operand,  the  program  loads  the  MH7  starting 
address  into  register  10  and  the  PB8  value  into  register  0,  then 
branches  to  DRAND  at  location  NEXTRAND  to  produce  a  random  number 
using  RN8 .  The  random  number  appears  in  register  7.  The  random 
number  is  shifted  from  0  to  1000  to  a  range  of  0  to  62  by  a  right 
shift  of  four  bits. 

A  transfer  passenger  transaction  causes  BAGS  to  branch 
to  XFER.  For  the  terminating  passenger  case,  the  program 


T 


continues  and  increments  the  MH7  count  of  occurrences 
of  the  random  number.  For  terminating  and  transfer  passen¬ 
gers  the  random  number  selected  is  compared  to  contents  of 
register  9  and  retained  if  larger.  At  location  COUNT  the 
program  performs  a  test  to  determine  if  an  additional  random 
number  is  to  be  generated.  If  true,  the  program  branches 
back  to  NEXTTRAND. 

The  program  places  the  number  of  bags  in  PB4  and  the 
highest  random  number  in  PB3  by  using  subroutine  STPVAL. 

It  then  increments  the  number  of  bags  in  MHl  (NORAUD,  14) 
for  terminating  passengers  or  in  MHl (NORAND,  15)  for  transfer 
passengers.  The  program  then  returns  to  GPSS. 
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BAGS 
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RETURN 
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NEXT RAND 


BRANCH  TO  DRAND 


SHIFT  RANDOM  NO.  IN 
R7  RIGHT  4  BIT  POSITION 


CALCULATE 
NO.  OF  BYTES 
FROM  MH7  START 
ADDRESS  BY  SHIFTING 
R8  ONE  BYTE  LEFT 


LOAD  CONTENTS 
STORED  IN  MH7  INTO  R5 
FROM  ELEMENT  CORRESPONDING 
TO  CURRENT  RANDOM  NUMBER 


X 


m 


INCREMENT  VALUE 
IN  R5  BY  ONE 


STORE  UPDATED  VALUE 
IN  MH7  ELEMENT 


INCREMENT  RAND.  NO. 
IN  R7  BY  1;  SHIFT 
FROM  0-63  TO  1-64 


IOAD  R9 
I  WITH  R 7  CONTENTS 

< - - - 


COUNT 

BRANCH  TO  NEXT  RAND 

IF  R4  IS  NON  ZERO; 

DECREMENT  R4  BY  ONE 

5 


COUNT 


BRANCH  TO  STPVAL; 

STORE  R7  VALUE  IN  HALFWORD 
PARAM.  DESIGNATED  BY  E  OPERAND 

~  1  ~  ~ 

ROAD  C  OPERAND  (NO.  OF 
BAGS  >  INTO  R7 


B-4-98 


B-4-99 


ADD  13  TO  R5 
TERMINATING  BAGS 
ADDRESS  MH1  (PHi,l«) 


•  CAUL!  HELP  BAGS, 

•  FLT  NO  (MH1  ROW  NUMBER). 

•  FN*  (NO  OF  BAGS  DISTRIBUTION). 

•  PB(NO  OF  BAGS)  •**  RETURN. 

•  PH(MAX  RANDOM  NO)  ***  RETURN, 

•  PBB  (TERMINATE  OR  TRANSFER) 

•  GENERATES  NUMBER  OF  RANDOM  NUMBERS  SPECIFIED  BY  B  ARG. 

•  HELP  BLOCK  ASSUMES  THAT  C  4  D  ARGS  ARE  A  ?B  AND  PH  NUMBER. 

•  RETURNS  NUMBER  OF  RN'S  GENERATED  IN  C  ARG.  MAX  RN  IN  D  ARG. 

•  RANDOM  NUMBERS  ARE  IN  THE  RANGE  1-64.  FOP  EACH  FLIGHT. 

•  FOR  TERMINATING  PASSENGERS  ONLY,  C  COUNT  IS  KEPT  OF  HOW  MANY 

•  TIMES  EACH  RANDOM  NUMBER  IS  GENERATED.  THESE  COUNTS  ARE 

•  RETURNED  VIA  MH7.  THIS  INFORMATION  IS  SUBSEQUENTLY 

•  PICKED  UP  BY  THE  COPY  XAC  SPLIT  TO  BAG  CLAIM  LOGIC  WHICH 

•  ALSO  RESETS  MH7  TO  ZEROS. 

•  BAGS  FOR  GIVEN  FLT  ARE  SUMMED  IN  MH1 ,  ROW  FLTNO: 

•  PBB  EQ  1  -— >  COL  14  -  TERMINATE  BAGS 

•  PB8  EQ  2  - >  COL  15  “  TRANSFER  BAGS 

BAGS  START  0 

SAVE  (14.12) 

BALR  12,0 

USING  *.12 

SR  0,0 

L  4 , L I NKADDR 

CR  0,4 

BNE  LINKED 

ST  1 0 , GPSSR1 0 

L  10.24(10) 

L  10,1068(10) 

L  10,168(10)  MH  7 

ST  1 0 , L I NKADDR 

L  1 0 , GPSSR 1 0 

LINKED  L  14, =F' 4096* 

AR  14,2 

LM  4,8,0(10) 

STM  4, 8. NORAND 

L  4.N0RAND+4 

SR  9.9  MAX  RANDOM  NUMBER 

CR  4.9 

BE  RETURN 

LA  6.8  RN8 

L  15,92(10) 

ST  1 0 , GPSSR1 0 

L  1 0 , L I NKADDR 

L  0.N0RAND+16  PBB  VALUE 

LA  1,2  PBS  EQ  2  FOR  TRANSFER  PAX 

NEXTRAND  BALR  5,15 

SRA  7,4(0) 

CR  0.1  TEST  FOR  TRANSFER  PAX 

BE  XFER 

LR  8,7 

SLA  8.1(0) 

LH  5,0(8,10) 

A  5 ,  *  F  1  1  ' 

STH  5,0(8,10) 

XFER  A  7 , »  F  1 1  1  RN  1-64 

CR  9,7 

BNL  COUNT 

LR  9,7  SAVE  MAX  RN 
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COUNT  BCT  4.NEXTRAND 
LR  7,9 

l  9, ■ X 1 1 0000000 '  PH 

L  6.N0RAND+12 

OR  6,9 

L  1 0 , GPSSR1 0 

L  15,52(10) 

L  10,24(10) 

LH  8,738(10)  X AC  NO 

BALR  5,15 

L  7,N:.RAN0+4 

L  6.NJRAND+8 

L  9, • X ' 08000000 '  PB 

OR  6.9 

BALR  5,15 

L  10, 1068(10)  MH  AREA 

LH  3,30(10)  NO  OF  CILS  IN  MH  1 

L  10, 24< 10)  MH  1  ADDR 

L  5 , NOR ANO  FLIGHT  (ROW)  NUMBER 

S  5  ,  *  F  '  1  1 

4,3  (ROW  -  1)  •  NO  OF  COLS 

L  8 , N3RAND+ 1 6 

A  5,«F'13'  MH1 ( • , 1 4)  FOR  TERM  PAX  BAGS;  ADD  COL  -  1 

L  9.*F'2'  PB8«2  - >  TRANSFER  PAX 

CR  8,9 

8NE  TERM 

*  5, * F ' 1  '  MH1(*,15)  FOR  TRANSFER  PAX  BAGS 

TERM  AR  5,5 

L  6, NORAND+4 

LH  8,0(10,5) 

AR  6,8 

STH  6,0(10,5) 

RETURN  RETURN  (14,12) 

NORAND  OS  5F 

GPSSR10  OS  IF 

LINKADOR  DC  X‘00000000’ 

END 
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